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Unser neues C16-P4- 
SPECIAL wartet mit 
Glanzpunkten auf, die 
für viele vielleicht ein ab¬ 
solutes Novum bedeuten. 
Wußten Sie schon, daß 
die CI6/116/PIus4-Rech¬ 
ner, obwohl kein speziel¬ 
ler Grafikchip sie unter¬ 
stützt, dennoch mit 
Sprites auf warten kön¬ 
nen? Mit Sprites meinen 
wir Objekte, die als voll¬ 
ständige Einheit über den 
Bildschirm bewegt wer¬ 
den können. Die Bewe¬ 
gung dabei hat nicht 
sprunghaft um jeweils ein 
Zeichen zu erfolgen, son¬ 
dern koninuierlich um je¬ 
weils ein Pixel, oder an¬ 
ders ausgedrückt, um je¬ 
weils ein Achtel-Zeichen. 
Daß dieses möglich sein 
muß, sehen wir an profes¬ 
sioneller Spielesoftware, 
die es für viel Geld zu 
kaufen gibt. Selbst solche 
Sprites zu erzeugen, wo¬ 
möglich mit ein paar ein¬ 
fachen BASIC-Befehlen, 
war bisher leider nicht 
machbar. Jetzt aber kön¬ 
nen auch Sie richtige Be¬ 
wegung in das Spiel brin¬ 
gen. Die BAS/C-Erweite- 
rung S&A-BAS/C, die wir 
in diesem Heft für alle 
CI 6/116/Plus4-Rechner 
bringen, die auf 64 KByte 
erweitert sind, ist speziell 
für Sprites und Anima¬ 


tion gedacht, damit Sie 
sich nicht mehr sagen las¬ 
sen müssen, Ihr Rechner 
hat ja nicht einmal Sprites. 
Zeigen Sie einem solchen 
Skeptiker, was Ihr Rech¬ 
ner tatsächlich auf dem 
Kasten hat. 

Viele, die einen Rechner 
haben, haben meist auch 
Grundkenntnisse in 
BASIC. Doch BASIC 
kennen heißt noch lange 
nicht, auch eigene An¬ 
wendungen in BASIC 
selbst programmieren 
können. Eine neue Arti¬ 
kel reihe mit dem Titel 
„So programmiere ich in 
BASIC" weist Ihnen den 
Weg. In diesem Heft wird 
diskutiert, was BASIC 
bringt. Vor- und Nachtei¬ 
le werden auf gezeigt. 
Nachdem BASIC sich als 
recht gut geeignet erweist, 
auf die Schnelle ein Pro¬ 
gramm zu verfassen, zeigt 
der Autor, wie er an ein 
zu erstellendes Programm 
herangeht, wie ein Pro¬ 
gramm geplant, und in 
welchen Schritten es rea¬ 
lisiert wird. Er demon¬ 
striert es zuletzt an einem 
Programmgerüst, das 
durch Ergänzungen von 
Daten zu einem indivi¬ 
duellen Quizprogramm ge¬ 
macht werden kann. 

Auch wer sagt, program¬ 
mieren könne er schon, 


wird sicherlich vom Pro¬ 
grammstil her von dieser 
Serie profitieren können. 
Tips und Tricks zum Pro¬ 
grammieren finden sich 
darin reichlich. 

Ziemlich breiten Raum 
haben wir in diesem CI 6- 
P4-SPEC/AL der Einfüh¬ 
rung in Maschinensprache 
gewidmet. Salamitaktik 
zu praktizieren und den 
Befehlssatz scheibchen¬ 
weise zu servieren, alle 
zwei Monate ein bißchen 
etwas, erschien nicht als 
der angemessene Weg. 

Wer sich ein Auto kaufen 
will, um damit zu fahren, 
kauft sich ja auch nicht 
zuerst die Reifen, dann 
das Lenkrad und die Gang¬ 
schaltung und später ir¬ 
gendwann einmal auch 
den Rest. Er wird daran 
nicht viel Freude haben, 
denn fahren kann er da¬ 
mit nicht. Wenn er alles 
beisammen hat, sind die 
Teile, die er zuerst erwor¬ 
ben hat, vielleicht schon 
wieder verrostet, in unse¬ 
rem Falle eben vergessen. 
Es besteht ein Unterschied 
zwischen dem Lesen von 
Büchern über das Auto¬ 
fahren und dem Autofah¬ 
ren selbst. Dies trifft 
auch zu auf die Befehle 
der CPU und den Umgang 
mit ihnen. Die Einfüh¬ 
rung wird begleitet von 
einem Programm, durch 
welches die Befehle der 
CPU direkt eingegeben 
und deren Wirkungen be¬ 
obachtet werden können. 
So können Sie die Regi¬ 
ster des TED-Chips und 
das Port-Register manipu¬ 
lieren, worauf sich Ände¬ 
rungen ergeben, die Sie 
entweder direkt sehen 
oder hören, die Sie am se¬ 
riellen Port messen, oder 
an geänderten Registerin¬ 
halten wahrnehmen kön¬ 
nen. Durch Aufrufen der 
Standard-Ein- und -Aus¬ 
gaberoutinen können di¬ 
rekt Daten auf die ver¬ 
schiedenen Geräte über¬ 
tragen werden. Mit dem 
Maschinenmonitor, den 
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die CI6/116/Plus4-Rech¬ 
ner dem C64 voraushaben, 
erstellen Sie Ihre ersten 
kleinen Maschinenrouti¬ 
nen. Wichtig ist diese Ein¬ 
führung besonders, weil 
wir Ihnen in den weite¬ 
ren Heften nicht nur Tips 
und Tricks und Utility- 
Programme zu Ihrem 
Rechner geben möchten, 
sondern Ihnen diese auch 
gerne erklären würden. 
Letzteres geht aber ohne 
die erforderlichen Grund¬ 
lagen nicht. 

Von vielen herbeigesehnt 
wurde eine Textverarbei¬ 
tung mit 80-Zeichen-Dar- 
ste/lung auf dem Bild¬ 
schirm. Wir haben Sie ge¬ 
testet. Einen ausführli¬ 
chen Bericht, der nicht 
nur irgendein Urteil ab¬ 
gibt, sondern umfassend 
über die Möglichkeiten 
von PLUS-TEXT-80 in¬ 
formiert, finden S ie in 
diesem Heft. 

Den Freunden von Hard¬ 
ware-Basteleien stellen wir 
das Messen mit dem Joy¬ 
stickport vor. Durch das 
Abfragen eines TED-Re¬ 
gisters mit einer Maschi¬ 
nenroutine können die 
einzelnen Pins der Joy¬ 
stickports abgefragt wer¬ 
den. Da ergeben sich si¬ 
cherlich eine Menge von 
Anwendungsmöglichkei¬ 
ten. Eine davon, den Bau 
einer einfachen Alarm¬ 
anlage, finden Sie im 
Heft. 

Ob für den Anwender, 
den Hardware-Bastler, für 
den, der seine Maschine 
besser kennenlernen will, 
für jedermann haben wir 
stets Interessantes und 
Nützliches parat. Sollten 
Sie finden, daß einem ge¬ 
wissen Gebiet zuwenig 
Aufmerksamkeit ge¬ 
schenkt wird, so schreiben 
Sie uns oder nehmen unse¬ 
re Hotline am Mittwoch 
von 15 bis 19 Uhr in An¬ 
spruch. Wir sind für Anre¬ 
gungen stets dankbar. 

Ihr 

COMMODORE WEL - sam 
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DER LETZTE 
KAISER 
KOMMT UM 
SECHS 


Filmverleih leicht gemacht - 
durch Computereinsatz 

Was macht der Besitzer einer Videothek am 
Sonntag? Er brütet über Statistik und Monatsabrechnung. 
Ein anderer kann künftig Spazierengehen: Er hat sich einen 

Computer zugelegt. 
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I ch hätte bereits vor zwei Jahren an¬ 
fangen sollen, mit dem Computer 
zu arbeiten.“ Günther Tauer, Chef 
der Karlsfelder Videothek „Video- 
Kiste“, hat lange genug an Sonntagen 
über Statistiken gebrütet. Der Wille 
zur Umstellung war wohl vorhanden - 
allein, es hat das geeignete Programm 
gefehlt. 

Dieser Mangel ist seit Februar beho¬ 
ben. Ein befreundeter Programmierer 
hat ihm Vidiplus entwickelt, das auf 
die Bedürfnisse seines Geschäfts ab¬ 
gestimmt ist. Warum hat er sich nicht 
für eines der Fertig-Programme ent¬ 
schieden, die es bereits in allen Varia¬ 
tionen und Preisklassen gibt? 

Tauer winkt ab: „Ich habe mir das eine 
oder andere angeschaut. Ist zwar alles 
gut und schön, aber wenn ich Ände¬ 
rungen brauche, kostet das zusätzlich. 
Mit hundert Mark und mehr ist man 
gleich dabei.“ 

Die täglichen Arbeiten lassen sich mit 
Vidiplus in sechs Masken abwickeln: 
Verleihgeschäft, Kundendatei, Film¬ 
eingabe, Bar-Code-Druck, Daten¬ 
sicherung, Mahnwesen. 

Im Moment wird lediglich mit der 
Kundendatei und der Filmeingabe 
gearbeitet. Die weiteren Programm¬ 
teile sollen in Kürze installiert werden. 
Problemlos zu handhaben sei die 
Sache auf jeden Fall, meint Tauer. 


.. eine Riesenerleichterung“ 


„Was mir Roland Haas, der Program¬ 
mierer, beibringt, werde ich verein¬ 
facht ans Personal weitergeben.“ Etwa 
eine Stunde hat er dafür veranschlagt, 
zumal durch den Bar-Code-Lesestift 
einiges an Unterweisungszeit gespart 
würde. 

Für den Videotheken-Besitzer ist das 
Programm „eine Riesenerleichte¬ 
rung“. Obgleich die Video-Kiste zu 
den kleineren Geschäften dieser Art 
zählt, bietet sie auf etwa 60 Quadrat¬ 
metern Platz für immerhin 3000 Fil¬ 
me. Rund 2500 verschiedene Titel 
sind derzeit im Angebot. Durch¬ 
schnittlich 100 werden an den Werk¬ 
tagen verliehen, samstags sind es gar 
um die 300. 

„An Stoßzeiten standen wir manch¬ 
mal zu dritt hinter der Theke“, sagt 
Tauer, der neben seiner Frau noch 
zwei Aushilfen für die Vormittage be¬ 
schäftigt. „Manchmal war es das reine 
Chaos: Vom Kunden mußte ich außer 


dem Namen auch wissen, wann er das 
letzte Mal da war. Konnte er sich nicht 
genau daran erinnern, begann die 
ewig lange-Sucherei in der alten und 
neuen Karte.“ Was noch dazu kam: 
Verleih-Formular ausfullen, auf die 
unterschiedlichen Preise achten, kas¬ 
sieren. 

Das geht jetzt alles schneller: Der 
Kunde ist mit seinen Daten gespei¬ 
chert, ebenso die Filme. Der Rest ist 


Schluß mit den Strichlisten 


ein Kinderspiel: Eingabe der Kunden¬ 
nummer, Namensvergleich, Heraus¬ 


suchen des gewünschten Films. Preis 
und Titel werden über Bar-Code ein¬ 
gelesen. Weitere Arbeitserspamis 
wird es geben, wenn die neuen les¬ 
baren Kundenkarten verteilt sind. 
Tauer sieht darin auch ein psycholo¬ 
gisches Moment: „Die Dinger werden 
bestimmt nicht einfach zu Hause ver¬ 
gessen. Die Leute schätzen diese tech¬ 
nischen Spielereien. Die mögen es 
ganz gern, wenn etwas piepst.“ 

Nicht nur fürs tägliche Verleihgeschäft 
läßt sich das Programm nützen. 
Schließlich will ein „Videothekar“ 
auch wissen, wie häufig welche Filme 
über den Ladentisch gehen. Bisher 
hat Tauer Strichlisten geführt: „Ich 
muß einen Überblick haben, ob die 
verschiedenen Titel ihren Einkaufs- 
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preis auch eingespielt haben.“ Die¬ 
sen Überblick hat er jetzt auf dem 
Bildschirm. Ebenso läßt sich daraus 
ersehen, mit welchen Filmherstellern 
welcher Umsatz erzielt worden ist. 
„Von den faulen Kunden wird mirjetzt 
auch keiner mehr durch die Lappen 


Faulen Kunden keine Chance 


gehen.“ Tauer spricht damit ein Pro¬ 
blem der meisten Videotheken an: Da 
leiht sich einer Kassetten aus und ver¬ 
schwindet damit auf Nimmerwieder¬ 
sehen. 

Zwar werden Listen mit den Namen 
dieserschwarzen Schafe verteilt. In der 
Kundenkartei werden sie mit einem 
Sperrvermerk versehen. Nur: „Wenn 
einer behauptet, er sei zum ersten Mal 


hier, habe ich das Nachsehen.“ Diese 
Zeitgenossen werden jetzt unter einer 
bestimmten Nummer gespeichert. Da 
sich jeder neue Kunde sowieso zu¬ 
nächst ausweisen muß, genügt ein 
Blick auf den Bildschirm: ertappt. 

Das Programm zeigt auch an, wenn 
die Leihfrist überschritten wurde. Et¬ 
wa 150 Mark, schätzt Tauer, gehen pro 
Jahr an Nachgebühren verloren - in 
der Hauptsache durch Unachtsam¬ 
keit, wenn viel Betrieb ist. Kein allzu 
großer Verlust zwar, doch wenn er sich 
vermeiden läßt... „Die Leute müssen 
jetzt warten, bis alles eingelesen und 
überprüft ist.“ 

Mitunter werden beschädigte Videos 
zurückgegeben. Wer dafür verant¬ 
wortlich war, läßt sich nur schwer fest¬ 
stellen. Eine Hilfe bietet Vidiplus: 
Die letzten drei Kunden, die den Film 
geliehen hatten, werden aufgelistet. 
Links: 

Unauffällig und 
platzsparend 
paßt sich das System 
in das Arbeitsfeld 
ein. 


Unten: 

Eine der Bildschirm¬ 
masken zeigt 
alle Informationen 
über die ange¬ 
botenen Filme. Die 
Daten der Kunden 
sind in einer 
ähnlichen Maske 
enthalten. 



Alles ist jedoch noch nicht machbar: 
Eine Kundin möchte „Der letzte Kai¬ 
ser“ ausleihen. Tauer schaut auf eine 
Liste: „Tut mir leid, nicht vor nächster 


Reservierung fehlt noch 


Woche. Höchstens noch heute abend, 
ab 18 Uhr.“ Die Reservierung ist im 
Programm nicht enthalten, es wird 
noch immer mit der bewährten 
Listen- und Zettel-Methode gearbei¬ 
tet. Für die Zukunft ist aber auch sie 
vorgesehen. 

Der Videotheken-Besitzer liebäugelt 
noch mit einer Textverarbeitung zum 
Erstellen von Serienbriefen. Ein 
Drucker ist ja bereits vorhanden. 
Steht aber der finanzielle Aufwand 
in einem akzeptablen Verhältnis zum 
Ertrag? Bereits die Programme, die 
derzeit angeboten werden, kosten, je 
nach Umfang, zwischen 2.000 und 
10.000 Mark. Wie teuer war der ganze 
Spaß? Rund 9.500 Mark insgesamt - 
für Computer, Drucker und Pro¬ 
gramm, sagt Haas. Mit Textverarbei¬ 
tung und Bar-Code würden die 
Kosten auf etwa 12.000 Mark klettern, 
rechnet sich Tauer aus. Er ist mit wei¬ 
teren Händlern in einer Einkaufs- 
Cooperative zusammengeschlossen, 
das Programm können alle gemein¬ 
sam nutzen. 

„Klar, für einen Laden mit etwa flinf- 
bis sechshundert Titeln lohnt sich ein 
Computer nicht.“ Das habe auch mit 


„Ohne Computer geht 
nichts mehr“ 


der Kundenfrequenz zu tun. Aber ab 
anderthalbtausend Filmen und Kun¬ 
den lasse sich darüber reden. 

Für ihn hat die Sache auf jeden Fall 
Hand und Fuß. Da sich die täglich 
anfallenden Arbeiten einfacher und 
schneller erledigen lassen, kann er in 
Stoßzeiten auf einen Mitarbeiter ver¬ 
zichten. Überdies: „Ich kann jederzeit 
nachprüfen, mit welchem Filmgenre 
und welchen Firmen ich keinen Um¬ 
satz mache.“ Durch gesteuerten Ein- 
kauf kann er damit eine Menge Geld 
einsparen. Für ihn steht fest: „Ohne 
Computer geht nichts mehr.“ 

was 
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Grundlagen 



Gewerkschaften und Betriebsärzte streiten sich schon lange 
mit der Arbeitgeberseite über das Für und Wider von Bildschirm¬ 
arbeitsplätzen. Sie seien gesundheitsschädlich und 
nicht zumutbar, argumentieren die einen. Alternativen 
sind nach Ansicht der Arbeitgeber nicht abzusehen. 

Auch die Hersteller von Monitoren setzen sich mit der 
Problematik auseinander. 
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D ie meisten Firmen, die derzeit 
versuchen, sich im Markt der 
hochwertigen Peripheriegeräte 
zu etablieren, orientieren sich an be¬ 
reits existierenden Produkten der 
Konkurrenz. 

Anders die Marketing-Linie der bel¬ 
gischen Firma Etap. Ihre Devise 
heißt: Erst Grundlagenforschung be¬ 
treiben und dann produzieren. Resul¬ 
tat ist eine Reihe von Erkenntnissen, 
diejeden, der an einem Bildschirm ar¬ 
beitet oder solche Arbeitsplätze plant, 
interessieren sollten. 

Personen, die täglich vier bis fünf 
Stunden, an 200 Arbeitstagen, und 
das 30 Jahre ianganeinem Bildschirm 
arbeiten, verbringen, hochgerechnet 
24.000 Stunden ihres Arbeitslebens 
vor ihrem Monitor. Wenn es durch 
Verbesserung der Arbeitsbedingun¬ 
gen gelingen sollte, eine Steigerung 
der Produktivität dieser Personen von 
zehn Prozent zu erzielen, so istdies ein 
Fortschritt. 

Die Ergebnisse der Grundlagenfor¬ 
schung von Etap zeigen eine denkbare 
Steigerung der reinen Arbeitsge¬ 
schwindigkeit des Benutzers um 25 
Prozent. Hierzu kommen noch derzeit 
schlecht meßbare Verbesserungen bei 
der Verhütung von Augenschäden 
und die Steigerung des allgemeinen 
Wohlbefindens von Personen, die am 
Bildschirm arbeiten müssen. 


Das Auge im Detail 


Der Monitor eines Computers und 
das menschliche Auge sind zwei Kom¬ 
ponenten, die auf einander abge¬ 
stimmt werden müssen. Dies ist nur 
möglich, wenn beider Aufbau und 
Funktion bis ins Detail bekannt ist. 
Die wichtigsten Teile des menschli¬ 
chen Auges sind die Linse, die Pupille 
und die Netzhaut (Retina). Die Linse 
projizierteine Abbildungaufdie Netz¬ 
haut und sorgt für die Schärfe dieser 
Abbildung. Da unsere Augen es ge¬ 
wohnt sind, immer scharf zu sehen, 
versuchen unsere Augen beim Lesen 
einer unscharfen Vorlage ständig 
durch Strecken und Dehnen von Mus¬ 
keln die Linse so einzustellen, daß 
eine scharfe Abbildung auf der Netz¬ 
haut entsteht. Dies ist bei Verwen¬ 
dung einer unscharfen Vorlage ein 
hoffnungsloses Unterfangen. Unsere 
Augen ermüden durch das ständige 
Nachregulieren sehr schnell. Wird 
trotzdem weiter gearbeitet, läßt die 


Konzentration nach, und die Fehler¬ 
häufigkeit des Arbeitenden steigt stark 
an. Andere Beschwerden, wie zum 
Beispiel Kopfschmerzen, folgen. 
Jeder, der sich schon einmal mit Foto¬ 
grafie beschäftigt hat, kennt den Be¬ 
griff Schärfentiefe. Gemeint ist eine 
Abhängigkeit zwischen Blendenöff¬ 
nung und der Tiefe des Bereichs, der 
scharf dargestellt werden kann. 

Die Pupille übernimmt im menschli¬ 
chen Auge die Funktion der verstell¬ 
baren Blende eines Foto-Objektives. 
Je nach Lichteinfall öffnet oder 
schließt sich die Pupille. Bezogen auf 
die Arbeit am Bildschirm heißt dies: 
Ist der Bildschirm sehr hell, schließt 
sich die Pupille und eine große Schär¬ 
fentiefe wird erreicht. Ist die Bild¬ 
schirmdarstellung dunkel, so öffnet 
sich die Pupille und das Auge muß die 
Sehschärfe viel häufiger regulieren. 

Ältere Augen brauchen 
mehr Licht 


Personen, die ständig zwischen Pa¬ 
piervorlagen und Monitordarstellung 
wechseln, strapazieren bei großen 
Helligkeitsunterschieden ihre Augen 
erheblich mehr, als bei nahezu glei¬ 
cher Helligkeit von Papier- und Bild¬ 
schirmdarstellung. Ein weiterer Fak¬ 
tor ist die mit steigendem Alter abneh¬ 
mende Empfindlichkeit unserer Au¬ 
gen. Je älter die Person ist, die an ei¬ 
nem Bildschirm arbeitet, je mehr 
Licht muß ein Monitor abgeben, um 
der Person ein optimales Arbeiten zu 
ermöglichen. Eine andere Vorausset¬ 
zung für ein zügiges Arbeiten an ei¬ 
nem Monitor wird nicht im Alter, son¬ 
dern in frühester Kindheit, in den er- 



Eine in Phase A auf den Monitor 
treffende Welle wird bei Durchdringen 
der 1/4 Lambda-Beschichtung um 
90 Grad-Phasen verschoben. Hierauf 
wird sie in Phase B an der Bildröhren¬ 
oberfläche reflektiert. Auf ihrem 
Weg nochmals um 90 Grad verschoben, 
ergibt eine Addition dieser Welle 
(Phase C) mit einer Eintreffenden 
den Wert 0. 

sten drei Lebensjahren, geschaffen. 
Zellen in unserem Gehirn die für das 
Sehen und Erkennen zuständig sind, 
werden in dieser Zeit „verdrahtet“. Di¬ 
verse geometrische Grundmuster 
werden in unseren Gehirnen als 
Hardwaremuster abgelegt. Alle Zei- 
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chen und Abbildungen, die nicht in 
dieser Ablage zu finden sind, muß 
unser Gehirn mit einer Auswerte- 
Software aus diesen Grundmustern 
konstruieren. Dies kostet viel mehr 
Zeit, als eine Auswertung mit Hilfe 
einer Hardware. 

Die Anzahl und die Typen von Mu¬ 
stern, die unser Gehirn als Hardware 
ablegt, sind abhängig von der Umge¬ 
bung, in der wir während der ersten 
drei Lebensjahre aufwachsen. Umge¬ 
ben von Hochhäusern und Beton- 
Architektur bilden gerade Linien und 
rechte Winkel den Grundstock unse¬ 
rer Wahrnehmungen. Personen, die in 
freier Natur aufwachsen, überneh¬ 
men die dort vorkommende Formen¬ 
vielfalt und verfügen über einen be¬ 
deutend umfangreicheren Vorrat an 
optischen „Hardwarelösungen“. 

Wird ein Text vom Bildschirm gele¬ 
sen, so verhält es sich ähnlich. Von 
dem Arbeiten mit bedrucktem Papier 


Die Lichtempfindlichkeit unserer 
Augen reduziert sich mit steigendem 
Alter bis auf rund 60 Prozent. 

sind wir es gewöhnt, durchgehende 
Linien zu erkennen und als Buchsta¬ 
ben zu interpretieren, welche wir 
dann zu Wörtern zusammensetzen. 
Alle Monitore, die eine helle Schrift 
auf dunklem Grund darstellen, sind 
nicht in der Lage, kontinuierliche 
Linien abzubilden. 

Deutlich erkennbar werden alle Zei¬ 
chen aus Punkten zusammengesetzt. 
Unser Gehirn muß aus diesen Punk¬ 
ten mit Hilfe der „Software“ ein Zei¬ 
chen zusammensetzen. Monitore, die 
einen schwarzen Buchstaben aufwei- 
ßem Grund darstellen, bilden konti¬ 
nuierliche Linien ab. Diese Zeichen 
können im Gehirn mit Hilfe der 
„Hardware“ ausgewertet werden. Da¬ 
durch wird der Lese- und Verständnis¬ 
vorgang stark beschleunigt. 


Mit zunehmendem Alter nimmt die 
Fähigkeit des Nahsehens stark ab. 

1974 an der Universität in Toronto/Ca- 
nada, durchgeführte Testreihen zeig¬ 
ten, daß es bei der damaligen Monitor¬ 
technologie 30 Prozent mehr Zeit in 
Anspruch nahm, einen Text von ei¬ 
nem Bildschirm zu lesen, als von ei¬ 
nem Blatt Papier. Aktuelle, von Etap 
initiierte Untersuchungen an der Uni¬ 
versität von Groningen zeigen, daß 
dieses Defizit durch Verbesserungen 
der Monitortechnologie vollständig 
ausgeglichen werden konnte. Er¬ 
staunlich ist, das ein von einem Moni¬ 
tor gelesener Text sogar schneller und 
besser verstanden wird, als ein von Pa¬ 
pier gelesener. t 

Gestört wird der Nachbar 


Bildschirme, die, bedingt durch eine 
zu geringe Zeilenfrequenz flimmern, 
stören nicht so sehr die Person, die di¬ 
rekt davor sitzt. Ein Flimmern ist be¬ 
deutend stärker und störender, wenn 
der Monitor aus spitzem Winkel be¬ 
trachtet wird. Benachbarte Arbeits¬ 
plätze werden hierdurch beeinflußt. 
Reflexionen auf einem Monitor sind 
ein jedem Anwender bekanntes Pro¬ 
blem. Durch eine abgestimmte 
Raumbeleuchtung und eine vernünf¬ 
tige Aufstellung des Gerätes können 
sie gemindert werden. Die Technik 
der verwendeten Monitore muß das 
ihre dazu beitragen, Reflexionen auf 
ein Minimum zu reduzieren. Eine 
Möglichkeit bietet ein Ätzen der Bild¬ 
röhrenoberfläche. Störende Refle¬ 
xionen verschwinden hierdurch fast 
vollständig. Gleichzeitig beeinträch¬ 
tigt das Ätzen aber die Schärfe und so¬ 
mit die Lesbarkeit der Abbildung 
deutlich. 

Eine Beschichtung des Röhreninne¬ 
ren ist derzeit der beste Kompromiß 
zwischen Reflexion und Schärfe. 
Ein Viertel-Lambda-Beschichtung 
heißt eine der neuesten Technologien 
auf diesem Sektor. 

Das bedeutet, daß Fremdlichtaufdem 
Weg zur Röhrenoberfläche, bedingt 
durch eine metallische Beschichtung 
des Röhreninneren, um ein Viertel 
seiner normalen Wellenlänge von ei¬ 
nem Lambda verzögert wird. Reflek¬ 
tierte Strahlen müssen diese Verzöge¬ 
rung zweimal mitmachen und treffen 
so mit einer Verspätung von einer hal¬ 
ben Wellenlänge wieder mit einfallen- 
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den Lichtstrahlen zusammen. Wird ei¬ 
ne Welle, das ist ein Lichtstrahl physi¬ 
kalisch betrachtet, um die Hälfte ihrer 
Länge verzögert, so spricht man auch 
von einer Phasenverschiebung von 
180 Grad. Das Mischen einer Welle 
mit einer Welle gleicher Frequenz, 
aber um 180 Grad gedrehter Phase, 
führt zu einer Auslöschung derselben. 
Somit können Reflexionen fast voll¬ 
ständig verhindert werden. Abgese¬ 
hen davon sind Bildschirme mit 
weißem Untergrund und schwarzer 
Schrift sowieso bedeutend weniger 
anfällig für Reflexionen als solche mit 
schwarzem Untergrund. 

Schlagwort Strahlenbelastung 

Strahlenbelastung ist ein in jüngster 
Zeit oft gebrauchtes Wort. Auch die 
Bildröhren von Monitoren geben 
Strahlung ab. Sie entsteht durch die 
Beschleunigung von Elektronen mit 
großer Energie und hoher Frequenz. 
Auf jedem Monitor klebt schließlich 
ein Schildchen, auf dem die Abschir¬ 
mung der Röhre dokumentiert ist. Die 
verbleibende Reststrahlung liegt 
deutlich unter der Strahlenabgabe an¬ 
derer Haushalts- und Gebrauchsge¬ 
genstände. Die Strahlenbelastung ei¬ 
nes Kühlschranks oder Staubsaugers 
ist, je nach Typ, bis zu zehn mal größer 
als die eines guten Monitors. 

Die bisher gewonnenen Erkenntnisse 
führen zu einem Pflichtenheft, dem 
ein Monitor neuester Technologie ent¬ 
sprechen müßte. Resultierend aus Be¬ 
dingungen, die unser Auge, unsere 
Arbeitsplatzumgebung und Gesetze 
der Physik stellen, wurde in den Labo¬ 
ratorien von Etap in Belgien eine Rei¬ 
he von Ganzseitenmonitoren in den 
Formaten DIN A4 und A3 entwickelt, 
die den neuesten Stand der Technik 
widerspiegeln. Vorgesehen für den 
Einsatz an IBM-kompatiblen Perso¬ 
nal-Computern und bei der Macln- 
tosh-Familie sind sie in der Lage, die 
Standardmonitore zu ersetzen. 

Wir haben die IBM-Version des DIN 
A4-Monitors Neftis getestet. Bestand¬ 
teile des Testgerätes waren,nebendem 
Monitor, eine lange PC-Steckkarte, ei¬ 
ne englische Bedienungs- und Instal¬ 
lationsanleitung sowie zwei Disketten 
mit den erforderlichen Bilschirm- 
treibern. 

Bereits nach Überfliegen der ersten 
Seiten des Handbuchs war klar, daß 
ein so komplexes Peripheriegerät nur 
von einem Fachmann installiert wer¬ 
den kann. 


Nach zwei Anrufen beim Distributor 
gelang es uns, die Bildschirmkarte an 
den Schneider AT 2640 anzupassen. 
Hierzu müssen zuerst die DlP-Schal- 
ter gefunden werden, die die compu¬ 
tereigene Bildschirmkarte abschalten. 
Danach kann derneue Bildschirmtrei- 
ber integriert werden. Erscheint beim 
Einschalten des Computers eine Mel¬ 
dung, die eine erfolgreiche Treiberin¬ 
stallation quittiert, so steht unter DOS 
der gesamte, DIN A4 große, Bild¬ 
schirm zur Verfügung. Ein Directory 
mit 60 Zeilen ist schon eine imposante 
Erscheinung. 

Die nächste Hürde, die es zu überwin¬ 
den gilt, ist die Anpassung der Softwa¬ 
re. In einer großen Zahl von Standard¬ 
anwendungen sind die Etap-Monito- 
re im Installationsmenü bereits ent¬ 
halten. Weitere Treiber befinden sich 
auf den mitgelieferten Disketten. Die¬ 


gute Abbildungsqualität und Schärfe 
zeichnen diese Bildschirme aus. Stö¬ 
rende Reflexionen sind kaum festzu¬ 
stellen. Eine hohe Bildwiederholfre¬ 
quenz eliminiert jedes Flimmern. 
Die Installation dieser Bildschirme 
sollte aufjeden Fall einem Fachmann 
überlassen werden. Bei Preisen ab 
5000 Mark sollte dieser Service wohl 
im Preis enthalten sein. 

Die Palette lauffähiger, den ganzen 
Bilschirm nutzender Software ist um¬ 
fangreich und wird ständig erweitert. 
Generell gesagt, ist es eine Wohltat, an 
einem solchen Monitor arbeiten zu 
können. LS 

Bezugsquelle: 

RFI Elektronik GmbH 
Dohrweg 63 

4050 Mönchengladbach 1 
Tel. 021 61/60060 



Die Etap-Monitore bilden je nach 
Modell eine komplette DIN A4- oder 
DIN A3-Seite ab. Ein Demo-Bild aus 
GEM macht die Relation zu einem 
Standardmonitor deutlich. 


se Treiber müssen mit einem Editor in 
die entsprechenden Instaflationsme- 
nüs integriert werden. 

Ausprobiert haben wir den Monitor 
mit den Benutzeroberflächen GEM 
und Windows. Auch Word und Word¬ 
star können beispielsweise den kom¬ 
pletten Screen nutzen. Programme, 
die nicht den gesamten Bildschirm 
nutzen können, sind trotzdem lauffä¬ 
hig. Die Etap-Monitore emulieren 
CGA- und Herkulesmodus. So ist es 
zum Beispiel möglich, zwei Herku- 
lesscreens übereinander, und gleich¬ 
zeitig darzustellen. 

Etap-Monitore entsprechen dem 
neuesten Stand der Technik. Eine sehr 



frtti mifiltui Stfrirutn 


10 











I nzwischen weiß es 
jeder, Computer 
rechnen nicht mit 
den uns gewohnten Zah¬ 
len von 0 bis 9 (Dezimal¬ 
system), sondern mit nur 
zwei Zeichen oder Zu¬ 
ständen: der 0 und der 1. 
Im Grunde ist der Com¬ 
puter dumm, auch das 
ist bekannt. Er muß beim 
Rechnen gewissermaßen 
„an den Fingern abzuzäh¬ 
len“, um zu Ergebnissen 
zu kommen. Finger heißt 
im Lateinischen digitus. 
Die zwei möglichen Zu¬ 
stände (1 oder 0) und die 
Art des Rechnens (Ab¬ 
zählen) verlieh der 
„kleinsten Einheit“ für 
den Computer den Na¬ 
men Bit (= Binary Digit). 


1. Stellenwerte 

Für das Rechnen im 
Binärsystem gelten ande¬ 
re Regeln als im geläu¬ 
figeren Dezimalsystem, 
dennoch gibt es Gemein¬ 
samkeiten: Jede Ziffer 
bei mehrstelligen Zahlen 
im Dezimalsystem hat ge¬ 
genüber der rechts neben 
ihr stehenden einen zehn¬ 
fach höheren Stellenwert. 
Die „8“ in der Zahl „48“ 
repräsentiert 8 Einheiten 
(Einer). Die „4“ links da¬ 
neben hat den Wert von 4 
Zehnern, also 40 (40 + 8 
= 48). 

Das Binärsystem arbei¬ 
tet prinzipiell nach dem 
gleichen Schema, jedoch 
beträgt der Stellenwert 
jeder Binärstelle immer 
das zweifache des Stellen¬ 
wertes der benachbarten 
rechten Stelle. Zur Ver¬ 
deutlichung hier eine 
Zahlenreihe in dezimaler 
und binärer Form: 


1 

1 

2 

10 

3 

11 

4 

100 

5 

101 

6 

110 

7 

111 

8 

1000 

9 

1001 

10 

1010 

48 

110000 


Hier sind schon einige 
Vor- und Nachteile der 
beiden Systeme zu erken¬ 
nen: während das Dezi¬ 
malsystem zur Darstel¬ 
lung einer Zahl weniger 
Stellen benötigt, braucht 
es andererseits viel mehr 
verschiedene Zeichen 
(zehn gegenüber zwei). 


Am Beispiel läßt sich 
auch die Umrechnungs¬ 
methode von Binärzahlen 
in Dezimalzahlen nach¬ 
vollziehen. Um eine Bi¬ 
närzahl zu schreiben, 
werden an die Stellen, 
welche addiert die Dezi¬ 
malzahl ergeben, Einsen 
geschrieben: 


' Nach diesem Prinzip 
lassen sich beliebig große 
Zahlen binär darstellen. 
Damit sind sie vom Com¬ 
puter „lesbar“. 


32 

16 

8 

4 

2 

1 



1 

1 

0 

0 

0 

0 = 

32 + 16 

= 48 

1 

0 

0 

0 

0 

0 


= 32 



1 

0 

0 

0 


= 8, 



1 

0 

0 

1 = 

8 + 1 

= 9 





1 

0 


= 2 
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Das allein genügt natür¬ 
lich noch nicht, es muß 
auch mit diesen Zahlen 
gerechnet werden. Zu¬ 
nächst etwas Theorie 
hierzu; In dezimalen, bei- 
nären oder anderen Zah¬ 
lensystemen können arith¬ 
metische und logische 
Operationen durchge¬ 
führt werden. Bei diesen 
Operationen treten Über¬ 
träge auf, zum Beispiel 
bei der Addition von 3 + 7 
= 10 im Dezimalsystem. 
Die Null wird in die 
Einerstelle gesetzt und 
die Eins in die Zehner¬ 
stelle übertragen. 

Im Binärsystem wird 
1 + 1 = 10 geschrieben 
(siehe oben). Auf diesem 
fundamentalen Grund¬ 
satz beruht die Leistungs¬ 
fähigkeit der digitalen 
Datenverarbeitung. 

Auch die Multiplika¬ 
tion schrumpft dabei auf 
die Tatsache zusammen, 
daß 1*1 = 1 ist. Damit 
ist der Rechengenauigkeit 
theoretisch keine Grenze 
gesetzt, denn es ist gleich¬ 
gültig, ob 10 oder 100 
mal eine Binärstelle 0 
oder 1 wird; lediglich die 
Anzahl der verfügbaren 
Stilen begrenzt die Be¬ 
rechnung. 

Subtraktionen können 
auf die Addition zurück¬ 
geführt werden und die 
Division wiederum auf 
die Subtraktion (dazu 
später mehr). Letztlich 
lassen sich damit alle 
Grundrechenarten auf die 
Addition zurückführen, 
wenn man die Bildung 
von Überträgen berück¬ 
sichtigt, was sich mit Hil¬ 
fe der Komplementbil¬ 
dung realisieren läßt. 


2. Komplementbildung 

Während die Addition 
auch im Rechner leicht 
verwirklicht werden 


kann, muß für die Sub¬ 
traktion das Verfahren 
der Komplementierung 
angewendet werden. Un¬ 
ter Zuhilfenahme des 
Komplements einer Zahl 
lassen sich alle Vorgänge 
wieder durch Addition 
darstellen. 

Das Komplement ist 
eine Zahl, die eine gege¬ 
bene Zahl zu einer be¬ 
stimmten Einheit ergänzt. 
Im Dezimalsystem wird 
in das Zehner- und Neu¬ 
nerkomplement, und im 
Binärsystem in das Einer¬ 
und Zweierkomplement 
unterschieden. 

Das Zehnerkomple¬ 
ment bedeutet die Ergän¬ 
zung jeder Ziffer einer 
Dezimalstelle auf 10. Die 
Komplementärzahl zu 1 
ist 9, zu 2 ist 8 usw. 

Das Neunerkomple¬ 
ment ist die Ergänzung 
jeder Ziffer auf 9. Also 
1 und 8, 2 und 7 usw. 

Hierzu ein Beispiel: 

Von der Zahl 468 soll 
die Zahl 147 subtrahiert 
werden. Die Komplemen¬ 
tärzahl zu 147 ist im 
Neunerkomplement 852. 

14 7- 

+ + + 

8 5 2 

9 9 9 

Wird das Komplement 
zur Zahl 468 addiert, so 
erhält man 1320. Abzüg¬ 
lich des Wertes 147 + 852 
= 999 ergibt sich das 
Resultat mit 321. 

Subtraktion: 

468 

- 147 
321 

Komplementäre Addition: 

468 

+ 852 
1320 

- 999 
321 


Im Binärsystem wird 
mit dem Zweierkomple¬ 
ment gearbeitet. Dabei 
muß jede Binärziffer auf 
10 000 (dez.16) ergänzt 
werden. 

Doch zunächst wird 
einmal erklärt, wie Binär¬ 
zahlen überhaupt addiert 
werden können. 

3. Addition binärer 
Zahlen 

Folgende Grundregeln 
gelten bei der Addition 
binärer Zahlen: 

0 + 0 = 0 
0 + 1 = 1 
1 + 0=1 

1+1=0 (+Überlauf 1) 


Die letzte Zeile erzeugt 
allerdings einen „Über¬ 
lauf“. Die 0 wird gesetzt 
und der Überlauf beträgt 
1, der zur nächsten Stelle 
übertragen wird. 


Bekanntlich arbeitet 
ein Computer mit Byte, 
welche ihrerseits aus acht 
Bit bestehen, die in „ge¬ 
packter“ Form vorliegen. 
Bei der natürlichen binä¬ 
ren Darstellung laufen die 
Bit der einzelnen Byte 
ineinander über und in 
der Binär-Dezimal-Dar- 
stellung (das ist die Ver¬ 
schlüsselung von Dezimal¬ 
ziffern beispielsweise für 
den Bildschirm) wird jede 
Ziffer durch vier Bit, also 
anderthalb Byte (oder 
Nibble) dargestellt. Als 
Beispiel wird im folgen¬ 
den die Zahl 121 einmal 
in natürlicher binärer 
Form dargestellt und ein¬ 
mal in Binär-Dezimal- 
Form. 

Natürliche binäre Form: 
1111001 

= 64 + 32 + 16+8 + 1 = 
121 

Binär-Dezimal-F orm: 


Hier einige Beispiele. 


Dezimal 

Binär 

2 

10 

+ 2 

+ 10 

4 

100 

10 

1010 

+ 4 

+100 

14 

1110 

14 

1110 

+ 2 

+ 10 

16 

10000 


0001 00010 00001 
1 2 1 

Damit dürfte der Un¬ 
terschied zwischen natür¬ 
licher binärer Form und 
Binär-Dezimal-Form 
deutlich geworden sein. 
Nun noch ein Beispiel ei¬ 
ner Addition in Binär- 
Dezimal-Form: 

Es werden die Zahlen 
49 und 37 addiert (= 86). 


0100 

1001 

= dez.49 

+ 0011 

0111 

= dez.37 

0111 

1110 

= Zwischenergebnis 

+ 

1 

Übertrag 

0111 

1100 

= Zwischenergebnis 

+ 

1 

Übertrag 

0111 

1000 

= Zwischenergebnis 

+ 

1 

Übertrag 

0111 

1 0000 

Dieses Ergebnis liegt 



außerhalb des Vier-Bit 



Codes, daher Subtrak¬ 

+ 0001 

-1010 

tion einer dez.10 und 



Übertrag 

1000 

0110 

= dez.86 


12 




4. Subtraktion binärer 
Zahlen 

Die Subtraktion wird, 
wie schon erwähnt, in ei¬ 
ne Addition umgewan¬ 
delt. Die abzuziehende 
Zahl erhält dazu führende 
Nullen vorgestellt. Darauf¬ 
hin werden alle Nullen in 
Einsen und umgekehrt 
überführt, die Zahl wird 
invertiert. Das Komple¬ 
ment einer Zahl ist also 
zu addieren. Die im Zwi¬ 
schenergebnis bei der er¬ 
läuterten Addition am 
weitesten links stehende 
Eins wird gestrichen 
und an letzter Stelle ad¬ 
diert. 


Beispiel: 

10000 = 
1010 = 
01010 = 


10101 = I 

Addition: 

10000 
+ 10101 
100101 
+ 1 
00110 = c 


dez.16 

dez.10 

dez.10 mit 

führenden 

Nullen 

Inversion 


dez.16 —10 
= 6 


Und noch ein Beispiel: 


68 - 23 = 45 

1000100 = 
10111 = 
0010111 = 

1101000 = 


dez.68 
dez.23 
dez.23 mit 
Vornullen 
Inversion 


Addition: 

1000100 
+ 1101000 
10101100 
+ 1 
0101101 


= dez.45 


5. Division binärer 
Zahlen 

Wie schon erwähnt, 
wird die Division binärer 
Zahlen auf eine Zwischen¬ 


subtraktion und diese auf 
eine Addition des Kom¬ 
plementes zurückgeführt. 
Es gibt hier nur die Mög¬ 
lichkeit: Einmal oder 
keinmal ist der Divisor 
im Dividenten enthalten. 
Als Beispiel dient folgen¬ 
de Division: 

66 : 22 = 3 

1000010 =dez. 66 
10110 =dez. 22 
0010110 = Nullen¬ 
auffüllung 
1101001 = Inversion 

Division: 

1000010 : 10110 = 11 
+ 1101001 
10101011 

+_ 1 

0101100 
+ 1101001 
10010101 

±_1 

10110 

bin.11 = dez.3 

6. Multiplikation binärer 
Zahlen 

Die Gesetze der binä¬ 
ren Multiplikation ent¬ 
sprechen denen der binä¬ 
ren UND-Verknüpfung 
aus der Booleschen Al¬ 
gebra. Hierbei gilt: 

logische 

UND-Verknüpfung 

0 UND 0 = 0 
0 UND 1=0 
1 UND 0 = 0 
1 UND 1 = 1 

binäre 

Multiplikation 

0*0 = 0 
0 * 1=0 
1*0 = 0 
1*1 = 1 

An dieser Stelle sind 
die Wahrheitstabellen der 
Boole’schen Algebra zu 
erwähnen, um die logi¬ 
schen UND-Verknüpfun¬ 
gen besser verstehen zu 
können. Verständlich 


wird diese Zuordnung 
aber auch dann, wenn 
man sich ein Kabel vor¬ 
stellt, in das zwei Schal¬ 
ter hintereinander ein¬ 
gebaut sind. Bezeichnet 
man die Schalterstellun¬ 
gen mit AUS = 0 und 
EIN = 1, so ist ersicht¬ 
lich, daß nur dann ein 
Strom fließen kann, 
wenn beide Schalter auf 
EIN = 1 stehen. Ist 

auch nur einer der bei¬ 
den Schalter auf AUS = 0, 
so ist der Stromkreis un¬ 
terbrochen, es fließt also 
kein Strom (=0). Hier ist 
schon die Verbindung 
vom Binärzahlensystem 
zur elektronischen Re¬ 
chenanlage zu erkennen. 
Beispiel einer Multiplika¬ 
tion durch fortlaufende 
Addition: 


13 * 5 

1101 * 101 
1101 
0000 
+ 1101 

1000001 = dez.65 


Wie beim manuellen 
Rechnen mit Papier und 
Bleistift wird jede Pro¬ 
duktzeile gegenüber der 
vorhergenenden um eine 
Stelle verschoben. Zu 
Beginn mit der Wertigkeit 
1 des Multiplikators, 
dann 2, 4, 8 usw. von 
rechts nach links. 

Im folgenden Schema 
ist die o.a. Multiplikation 
Schritt für Schritt unter 
Zuhilfenahme von vier 
Registern aufgezeigt. Un¬ 
gefähr so läuft der Vor¬ 
gang im Rechner ab. Da¬ 
bei gibt es zwei Abbruch¬ 
bedingungen für die Ma¬ 
schine: Wenn in Register 
A ein Überlauf auftritt, 
oder wenn B = 0 ist. Letz¬ 
teres ist hier am Schluß 
der Fall. Die Multiplika¬ 
tion ist somit durchge¬ 
führt. 


Ablauf einer Multiplikation mit Registern in einem 
Rechner: 


Register A Register B Register C 

Multiplikant Multiplikator Test ob 1 

Register D 

Ergebnis 

0000001101 0000000101 1 

0000000000 

(addiere A 
auf D) 

schiebe links schiebe rechts 

0000011010 0000000010 0 

0000001101 

schiebe links schiebe rechts 

0000110100 0000000001 1 


(addiere A 
auf D) 

schiebe links schiebe rechts 

0001000001 

0001101000 0000000000 0 



Die Register bestehen 
aus Speichergliedern. Je¬ 
des Speicherglied kann 
ein Bit darstellen. Zur 
Darstellung von zehn Bit 
sind also zehn Speicher¬ 
glieder notwendig, die zu 


einem Register zusam¬ 
mengefaßt wurden. Die 
Register A und B sind 
dabei Schieberegister. 

Die Stelle des Multipli¬ 
kators mit der Wertigkeit 
1 wird geprüft, ob sie 0 



Basis 0 

für Basis 

Basis 

-n 




2 

8 

16 





1 

0 

0 

0 

1 0 






2 

1 



05 






4 

2 



0 25 






8 

3 

l 


0 125 






16 

4 


1 

0 062 5 






32 

s 



0031 25 






64 

6 

2 


0015 625 






128 

7 



0007 812 5 






256 

512 

8 

9 


2 

0 003 90« 25 

0001 953 125 

0 000 9 76 562 5 

0 000 488 2 81 26 

0 000 244 140 625 






2 046 

4 096 

11 

12 

1 

3 






8 192 




0000 122 070 31» 5 






16 384 

14 



0000 061 035 15a 25 






32 766 

15 

5 


0000 030 517 5/0 125 






86 636 

16 


4 

OOOO 015 258 /«9 '42 5 






131 072 

17 



OOOO 007 629 .94 -.3 25 






262 144 

18 

6 


0000 003 814 9/ fi 625 






624 286 

19 



OOOO 001 907 J48 H? 812 

5 




1 

2 

046 576 
097 152 

20 

21 

7 

5 

OOOO 000 953 674 J 6 408 
OOOO 000 476 63’ 158 203 

25 

125 




4 

■ 

194 304 

388 606 

22 

23 



OOOO 000 238 4i8 573 101 
OOOO 000 119 iTi 239 550 

781 

25 



18 

777 216 


8 


OOOO 000 059 604 844 775 

390 

625 



33 

554 432 




OOOO 000 029 802 322 387 

695 

;i2 

5 


11 

108 864 

26 


Hm 

OOOO 000 014 901 161 193 

847 

656 

75 


134 

217 728 

27 

9 


OOOO 000 007 450 580 596 

923 

828 

125 


268 

435 456 




OOOO 000 003 725 290 298 

481 

914 

062 

5 

836 

870 912 




OOOO 000 001 662 645 149 

230 

957 

031 

25 

1 073 

741 824 


10 


OOOO 000 000 931 322 574 

615 

478 

515 

625 

2 147 

483 648 

31 


El 

OOOO 000 000 465 661 287 

307 

739 

257 

812 5 


oder 1 ist. Hier im Bei¬ 
spiel ist sie 1 und die 
Addierschaltung veran¬ 
laßt die Addition von Re¬ 
gister A auf Register B. 
Bei den folgenden Schrit¬ 
ten wird immer zuerst 
der Inhalt von Register 
A um eine Stelle nach 
links, der von B eine 
Stelle nach rechts gescho¬ 
ben, wie oben zu sehen 
ist. Wenn die rechte Po¬ 
sition der Zahl in Regi¬ 
ster B nun 1 ist, wird die 
Addition von A auf D 
veranlaßt. Bei 0 wird so¬ 
fort die nächste Ver¬ 
schiebung durchgeführt. 


Das Endergebnis steht am 
Schluß in Register D. 

Damit wurden die vier 
Grundrechenarten im bi¬ 
nären Zahlensystem er¬ 
läutert. In der Regel 
braucht sich der Anwen¬ 
der nicht um diese „ma- 
schinen-nahen“ Operatio¬ 
nen zu kümmern. Es sei 
auch erwähnt, daß es 
noch andere Zahlensyste¬ 
me neben Dezimal- und 
Binärsystemen gibt, mit 
denen der Computer ar¬ 
beitet, beispielsweise He¬ 
xadezimal- oder Oktal¬ 
zahlen. Dipl. Ing. (FH) 

Oliver Rosenbaum ■ 


* * * 


Das Hexadezimalsystem 


W 


er sich mit Assemb¬ 
lerprogrammierung 
beschäftigen will, 
kommt nicht darum he¬ 
rum, sich auch der Hexa¬ 
dezimalzahlen anzuneh¬ 
men. Hexadezimale Zah- 
len-Darstellungen erlau¬ 
ben, große Zahlen mit 
relativ wenigen Stellen 
darzustellen. Allerdings 
werden dabei mehr Zei¬ 
chen benötigt. 

Das Hexadezimalsy¬ 
stem wird auch Sedezi¬ 
malsystem genannt von 
lat. sedecium = sechzehn. 
Hexadezimal kommt vom 
Griechischen hexa (sechs) 
und Lateinischen decem 
(zehn). 

Während im Binärsy¬ 
stem nur zwei verschiede¬ 
ne Zeichen verwendet 
werden (0 und 1) und im 
Dezimalsystem bekannt¬ 
lich zehn, benötigt das 
Hexadezimalsystem 16 
Zeichen, was auch den 
Namen dieses Zahlen-Sy- 
stems erklärt. 


Schauen wir uns ein¬ 
mal die verschiedenen 
Zahlensysteme im Ver¬ 
gleich an: 

Binär Dezimal Hexa¬ 
dezimal 


beispielsweise ist (bin) 
10 000 = (dez) 16 = (hex) 
10 . 

Man gibt also immer 
das System mit an, und 
sei es nur durch einen 


le realisieren: Jede Dezi¬ 
malzahl wird im Com¬ 
puter durch vier Bit dar¬ 
gestellt. Wird die Binär¬ 
zahl aus dem Beispiel, 
von rechts beginnend, in 
Vierergruppen unterteilt 


0 

0 

0 

Index (2,10 oder 16). 

und die entsprechenden 

g 1 

1 

1 

Wir verwenden hier in 

hexadezimalen Werte aus 

10 

2 

2 

Klammern gesetzte Ab¬ 

der Tabelle abgelesen, er¬ 

11 

3 

3 

kürzungen. 

gibt sich: 

100 

4 

4 



101 

5 

5 

Ein weiteres Beispiel 

11 1010 1111 

110 

6 

6 

einer Zahl in den drei 

3 A F 

111 

7 

7 

Systemen: 


1000 

8 

8 


also ist 

1001 

9 

9 

(dez) 934 = (bin) 

(bin) 1110101111= (hex) 

1010 

10 

A 

1110101111 = (hex) 3AF 

3AF 

1011 

11 

B 



1100 

12 

C 

Man rechnet die Binärzahl 

Genauso einfach lassen 

1101 

13 

D 

nach dezimal: 

sich hexadezimale Zahlen 

1110 

14 

E 


binär darstellen. Es ist nur 

1111 

15 

F 

1110 10 1111 

darauf zu achten, daß 

10000 

16 

10 

5 2 1 

kleinere Binärzahlen mit 




15 2 3 

Vornullen aufgefüllt wer¬ 

Das 

Hexadezimalsy- 

2680208421 

den. 

stem verwendet also die 


Beispiel: 

Ziffern von 0 bis 

9 und 

512 + 256+ 128 + 32 + 

(hex) 333 = (bin)? 

zusätzlich die Buchstaben 

8 + 4 + 2 + 1 = 943 

von A bis F. Es 

ist im- 


3 3 3 

mer wichtig, zu wissen, in 

Binär nach hexadezi¬ 

0011 0011 0011 

welchem 

Zahlensystem 

mal läßt sich leicht nach 

(hex) 333= (bin) 

man sich 

befindet, denn 

der oben gezeigten Tabel- 

1100110011 
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Die Umrechnung von 
binär nach hexadezimal 
(und umgekehrt) läßt 
sich also am einfachsten 
anhand von Tabellen 
durchführen. Dies resul¬ 
tiert aus der Tatsache, 
daß die Basis 2 des Binär¬ 
systems sich problemlos 
in die Basis 16 des Hexa¬ 
dezimalsystem umrech¬ 
nen läßt. 

Anders verhält es sich 
dagegen mit dem Dezimal- 
und dem Hexadezimalsy¬ 
stem (Basis 10 und 16). 

Die Umrechnung einer 
Dezimalzahl in eine hexa¬ 
dezimale Zahl erfolgt 
schrittweise. Die Dezimal¬ 
zahl wird immer wieder 
durch 16 geteilt, wobei 
der Rest der ersten Divi¬ 
sion die niedrigwertigste 
Ziffer der Hexadezimal¬ 
zahl ergibt. Der Quotient 
wird dann wiederum 
durch 16 geteilt, der Rest 
links neben den vorhan¬ 
denen Rest geschrieben, 
was die zweitniedrigste 
Stelle ergibt usw. 

Beispiel: Die Zahl (dez) 
246 soll hexadezimal ge¬ 
schrieben werden: 

246 : 16= 15 

Ergebnis (hex) F 6 

16 

086 

80 

6-(=hex)-6 

15:16 = 0 
0 

15 -(= hex)-F 

Bei der Umwandlung 
von Hexadezimalzahlen 
in Dezimalzahlen bilden 
die Zeichen von 0 bis F 
den Multiplikanden. Der 
Stellenwert der Hexade¬ 
zimalzahl (von links nach 
rechts) gibt den Expo¬ 
nenten an, mit dem die 
Basis 16 potenziert wer¬ 
den muß. Jedes Zeichen 
wird mit der entsspre¬ 
chenden Potenz von 16 


multipliziert. Die Summe 


Mit einer Genauigkeit 


der einzelnen Produkte von hier fünf Stellen ent¬ 
ergibt den Dezimalwert spricht der dezimalen 


der Zahl. 

Beispiel: Die Zahl (hex) 
36F soll in eine Dezimal¬ 
zahl umgerechnet werden: 


Zahl 0,43 die Hexadezi¬ 
malzahl 0,6E 147. 


2 1 0 
36F = 3 * 16 + 6* 16 + 15* 16 

36F = 3*256 + 6*16 + 15*1 = (dez) 879 


Die Umrechnung einer 
gebrochenen Dezimalzahl 
in eine Hexadezimalzahl 
erfolgt durch Multiplizie¬ 
ren mit 16. Die Ziffer 
links des Dezimalpunkts 
wird als erste hexadezi¬ 
male Ziffer aufgeschrie¬ 
ben. Die Stellen nach dem 
Dezimalpunkt des Pro¬ 
dukts werden daraufhin 
erneut mit 16 multipli¬ 
ziert. Die links vom Dezi¬ 
malpunkt erscheinende 
Ziffer ergibt die zweite 
Ziffer der hexadezimalen 
Zahl usw. Sobald ein Pro¬ 
dukt eine ganze Zahl er¬ 
gibt, ist die Umrechnung 
beendet. 

Beispiel: (dez) 0,43 = 
(hex)? 

0,43 * 16 Ergebnis (hex) 

43 

5 28 

6,88- 


0,88 * 16 
88 
5 28 
14,08- 


0,08 * 16 
08 
48 

1,28 - 


0,28 * 16 
28 
1 68 
4,48- 


0,48 * 16 
48 
2 88 
7,68 - 


Günstigerweise werden 
der ganzzahlige Anteil ei¬ 
ner Dezimalzahl und 
der gebrochene getrennt 
umgeformt, also zunächst 
die Stellen vor dem Kom¬ 
ma, dann erst die nach 
dem Komma. 

Bei Zusammenfassung 
der beiden oben gezeig¬ 
ten Beispiele ergäbe also 


(dez) 246,43 
(dez) 246 
(dez) 0,43 


(hex) F6 
0,6E147 


(dez) 246,43 = F6,6E147 


Das Hexadezimalsy¬ 
stem ist im Prinzip nicht 
schwieriger zu handha¬ 
ben, als das Dezimalsy¬ 
stem, — wäre man letzte¬ 
res nicht gewohnt und 
hätte man nicht lediglich 
zehn Finger zum „Nach¬ 
rechnen“. Hilfreich zum 
Verständnis aller hier an¬ 
gesprochenen Zahlensy¬ 
steme ist deren gleiches 
Prinzip: 

■ es werden 2, 10 oder 
16 Zeichen bestimmter 
Wertigkeiten verwen¬ 
det; 

■ in allen drei Systemen 
zeigt die Ziffer „0“, 
daß die Wertigkeit die¬ 
ser Stelle nicht zum 
Gesamtwert zu addie¬ 
ren ist; 

■ die Wertigkeit einer 
Stelle berechnet sich 
immer als Produkt aus 
dort notierter Ziffer 
und der Basis, poten¬ 
ziert mit der Platznum¬ 
mer (von rechts mit 
0 beginnend). 


0, 6 E 1 47 


3 2 10 

(bin) ...2 2 2 2 

3 2 10 

(dez) ... 10 10 10 10 

3 2 10 

(hex) ... 16 16 16 16 

■ Basis und Anzahl der 
verschiedenen Ziffern 
eines Systems sind im¬ 
mer gleich innerhalb 
eines Systems. 

Umständlich ist ein 
Umrechnen immer, aber 
wenn man sich ein wenig 
mit dem Hexadezimalsy¬ 
stem beschäftigt und viel¬ 
leicht auch in Assembler 
programmieren will, wer¬ 
den Zahlen wie FF oder 
FE vertraut. Dipl. Ing. (FH) 

Oliver Rosenbaum ■ 
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■ TEST 


PLUS-TEXT 80 


Noch nicht 
alle Wünsche 
erfüllt 

Der Wunsch nach einer echten 80-Zeichen-Darstellung 
scheint endlich in Erfüllung gegangen zu sein. Wer würde nicht gerne das 
auf dem Bildschirm sehen, was nachher auch so ausgedruckt wird? 


PLUS-TEXT 80 wird auf Diskette 
für 40 Mark von BLK-Software an- 
geboten. Statt eines Handbuchs 
gibt es nur ein blaues DIN-A4- 
Blatt, auf beiden Seiten eng be¬ 
schrieben. Glücklicherweise besitzt 
das Programm selbst eine Menü¬ 
führung, die uns alle Funktionen 
anzeigt. 


DIE MENÜS VON PLUS-TEXT80 


1. Hauptmenü 

Nach dem Laden von Diskette und 
einer kurzen Wartezeit, die für Ini¬ 
tialisierungen verwendet wird, be¬ 
finden wir uns im Hauptmenü. Es 
stehen folgende Funktionen zur 
Wahl: 

• Eingabe 

• Speichern 

• Laden 

• Drucken 

• Zeilen einfügen 

• Zeilen löschen 

• Nächsten Abschnitt bearbeiten 

• Einen Abschnitt zurück 

• Formatieren des Textes. 

Damit ist alles vorhanden, was für 
das Arbeiten mit einer Textverar- 
beitung nötig ist. Komfortabel ist 
eine Textverarbeitung, die zusätz¬ 
liche Möglichkeiten bietet. Wir fin¬ 
den sie im Menü zwei, das durch 
Druck der Retürn-Taste erreicht 
wird. 

2. Menü zwei 

Zusätzliche Funktionen von Menü 
zwei: 

• Hilfsmenü drei 

• Spezielle Druckeranpassung 

• Text löschen 

• Directory 

• Datei löschen 

• Zeiteingabe 

• Datei umbenennen 

• Diskette aufräumen 

• Textbereich suchen und ersetzen 

• Sortieren. 


3. Hilfsmenü 

Das Hilfsmenü läßt sich vom Haupt¬ 
menü und von Menü zwei aus durch 
Eingabe des Buchstabens h errei¬ 
chen. In diesem Menü kann nichts 
ausgewählt werden. Es dient zur In¬ 
formation. Es zeigt, über welche Ta¬ 


sten deutsche Umlaute angespro¬ 
chen werden sowie spezielle Steu¬ 
ertasten für Bewegungen an Zeilen¬ 
anfang und Zeilenende, Textanfang 
und Textende. Wir erfahren, wie 
Tabulatoren gesetzt, gelöscht und 
angefahren werden können und wie 
spezielle Druckersteuerzeichen zu 
senden sind. 


GLIEDERUNG NACH 
DISKETTEN-, DRUCKER-, TEXT- 
UND EDITIEROPTIONEN 


Diskettenoptionen 

Mit den Entsprechungen zu Direc¬ 
tory, Scratch. Rename, Collect, 
Load und Save sind alle Wünsche 
voll abgedeckt. 


Druckeroptionen 

Text drucken: 

Auf „Text drucken“ erscheint eine 
Auswahl von sechs Druckern: 

1. Typenrad 

2. SP/180 VC 

3. Star NL-10/LC-l 0 
4: Epson 

5. Matrixdrucker ohne Umlaute 

6. Andere Matrixdrucker. 

Der Seikosha SP/180 VC mit richti¬ 
ger Dip-Schalter-Stellung ist kompa¬ 
tibel zum Commodore-Drucker. 

Wer daher einen Commodore-Druk- 
ker mit deutschem Zeichensatz be¬ 
sitzt, sollte Nummer zwei wählen. 
Nummer eins, drei und vier bringen 
ebenfalls Commodore-ASCII, nur 
werden jeweils andere Codes für die 
Umlaute an den Drucker gesandt. 
Nummer fünf ist für Commodore- 
kompatible Drucker ohne deutsche 
Umlaute gedacht. Die Umlaute wer¬ 
den hierbei auf dem Drucker über 
Einzelnadel-Ansteuerung erzeugt. 
Die Umlaute sehen auf den Com- 
modore-Druckern allerdings zum 


Fürchten aus. Jedoch können über 
die spezielle Druckeranpassung die 
Zeichen auch selbst definiert wer¬ 
den, so daß ein optimales Drucker¬ 
gebnis erzielt werden kann. 

Nummer sechs bringt nicht Com¬ 
modore-ASCII, sondern Standard- 
ASCII. Die Groß- und Kleinbuchsta¬ 
ben werden daher auf den Commo- 
dore-Druckern vertauscht. 

Spezielle Druckeranpassung 

Ein Untermenü bietet an: 

• Open-Befehl ändern 

• Initialisierung 

• Sonderzeichen 

• Druckertreiber speichern 

• Druckertreiber laden 

• Zeichensatz ändern 

© Drucken mit Sonderzeichen und 
geändertem Zeichensatz. 

Mit OPEN können Geräte und Se- 
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Anzeige 


TEST 


kundäradresse für den Drucker fest¬ 
gelegt werden. 

Mit der Initialisierung können bis 
zu fünfzig Steuersequenzen für den 
Drucker definiert werden, wobei ei¬ 
ne Sequenz bis zu elf Byte umfas¬ 
sen kann. Bei fünfzig definierten 
Steuer-Codes sind nach der Bedie¬ 
nungsangabe nur mehr durchschnitt¬ 
lich vier Byte pro Code möglich. 
Script-Plus wartet dagegen nur mit 
zehn selbstdefinierbaren Drucker¬ 
steuerzeichen auf, wobei lediglich 
ein Byte definiert werden kann. Bei 
der Texteingabe kann dann durch 
einen Tastendruck, gefolgt von der 
Code-Nummer, veranlaßt werden, 
daß der Drucker beim Ausdruck die 
definierte Code-Sequenz empfängt. 
Acht Zeichen sind als Sonderzei¬ 
chen definierbar. Hierbei ist gar eine 
Code-Sequenz von 14 Byte mög¬ 
lich. Wer seine deutschen Umlaute 
umdefinieren möchte, kann dies so¬ 
mit tun. 

Damit nicht jedesmal eine spezielle 
Druckeranpassung vorgenommen 
werden muß, kann diese Anpassung 
gespeichert und wieder geladen wer¬ 
den. 

Mit „Zeichensatz ändern“ lassen 
sich die Codes für Klein- und Groß¬ 
buchstaben verschieben. Damit kann 
dem Drucker zum Beispiel gesagt 
werden, er soll Kleinbuchstaben als 
Großbuchstaben und umgekehrt 
ausdrucken. 

Besondere Textoptionen 

Besondere Möglichkeiten bieten: 

• Formatieren 

• Suchen und ersetzen 

• Sortieren. 

Texte können, nachdem sie viel¬ 
leicht auf die Schnelle eingegeben 
wurden, linksbündig, rechtsbündig 
oder zentriert formatiert werden. 
Diese Formatierung läßt sich auf 
gewisse Zeilen beschränken. 
Buchstabenketten können gesucht 
und gegen andere ausgetauscht 
werden. Eine Liste alphabetisch zu 
ordnen, ist durch die Sortieroption 
möglich. Die Buchstabenkette, nach 
der sortiert wird, braucht nicht am 
Zeilenanfang zu stehen. Es kann die 
Spalte ausgesucht werden, nach der 
sortiert werden soll. 

Ein wenig vermissen wir Blockver- 
schieb-Operationen. Doch allzu 
oft werden die ja nicht gebraucht. 

Das Editieren 

Zeigte uns PLUS-TEXT 80 bisher 
noch seine guten Seiten, so können 
wir beim Editieren die Schwachstel¬ 
len entdecken. 

Die 80-Zeichen-Darstellung wird er¬ 
reicht durch den HIRES-Graphic- 
Modus und der Verwendung einer 


nur vier mal acht Pixel großen 
Buchstabenmatrix. Da ein Pixel als 
Abstand zum nächsten Zeichen ver¬ 
lorengeht, bleiben für die Breite 
nur noch drei Pixel übrig. Mit einem 
Fernsehgerät ist hier wohl schwer¬ 
lich noch etwas zu lesen. Am besten 
ist ein guter Monochrom-Monitor. 
Verglichen mit der 80-Zeichen-Kar- 
te von Kingsoft sind die Zeichen re¬ 
lativ gut lesbar, da auf Verschnörke- 
lungen verzichtet und eine klare 
Form gefunden wurde. Dennoch ist 
das Lesen weitaus anstrengender als 
im 40-Zeichen-Modus. Für stunden¬ 
langes tagtägliches Schreiben ist 
diese Textverarbeitung daher nicht 
zu empfehlen. 

Das Editieren selbst gestaltet sich 
nicht gerade komfortabel. Ein Zei¬ 
chen einzufügen dauert vier Sekun¬ 
den. So lange braucht das Pro¬ 
gramm, bis alle Zeichen um eine 
Stelle nach rechts verschoben sind. 
Nur das letzte Zeichen in der Zeile 
läßt sich zur Zufriedenheit löschen. 
Bei Zeichen, die sich mitten in der 
Zeile befinden, rutscht der Text 
rechts davon nicht nach. Beim Zwi¬ 
schenfügen von Text in eine Zeile, 
die bereits voll ist, findet am Ende 
kein Übertrag in die neue Zeile 
statt. Rückverschiebungen in die vor¬ 
herige Zeile können auch nicht vor¬ 
genommen werden. 

Zeilen einfügen oder löschen dauert 
ganze zehn Sekunden, da hierbei 
noch Angaben über die Anzahl der 
Zeilen zu machen sind und even¬ 
tuell die Anwahl der Lösch- und 
Einfügeoption über das Hauptmenü 
geschieht. Bei Erreichen des unte¬ 
ren oder oberen Randes findet kein 
Scrolling statt. Es ist nur abschnitt¬ 
weises Blättern möglich, entweder 
über das Hauptmenü oder durch Di- 
rektanwahl des gewünschten Ab¬ 
schnitts. 


FAZIT 


Drucker- und Diskettenoptionen 
sind hervorragend verwirklicht. Das 
Sortieren von Listen übernimmt der 
Rechner durch die Sortierroutine. 

Die 80-Zeichen-Darstellung. obwohl 
sie gut realisiert wurde, ist für einen 
CI6 oder Plus4 jedoch nicht das 
Wahre, besonders wenn viel damit 
gearbeitet werden soll. Die Editier¬ 
möglichkeiten sind ziemlich einge¬ 
schränkt und machen das Arbeiten 
nicht gerade komfortabel. Am be¬ 
sten wäre eine gute 40-Zeichen-Text- 
verarbeitung, die es gestattet, zwi¬ 
schendurch den eingegebenen Text 
im 80-Zeichen-Modus zu begutach¬ 
ten. Doch so ein Programm existiert 
noch nicht. a.m.U 


Alles für Ihren 
CI 6, C116 und plus/4 

TEXT: 

SCRIPT/PLUS-Modul 

mit Handbuch (deutsch).nur 49,- 

Das leistungsfähige Textverarbeitungsprogramm 
für den Cl6/Plus4. Vielseitige Textgestaltung. 
Calculator. Serienbriefe. Zeichensätze (Umlaute) 
und Schriftarten im Text frei wählbar. Textspei¬ 
cherung auf Cassette und Diskette. 32-KB-ROM- 
Modul. Jetzt mit deutschem Handbuch. 

SCRIPT/PLUS-Assistent 
Cass/Disk.nur 19,— 

Hilfsprogramme zu SCRIPT/PLUS: Deutscher 
Zeichensatz (3 Tastaturbelegungen). Individuelle 
Druckeranpassung (Umlaute, Sonderzeichen). 
Befehlserweiterung. BASIÖ-Programmeditor. 
Konversionsprogramme. 

SCRIPT/PLUS-Handbuch (deutsch) 29,- 

Erweiterte Übersetzung der englischen Original¬ 
fassung. 

SCRIPT/PLUS-Paket komplett nur 59- 

Enthält Programm-Modul. Handbuch (deutsch) 
sowie Assistent. 

DATEI: 

SUPERBASE C64/+4 

mit engl. Handbuch ... Disk nur99,— 

Das professionelle Datenbankprogramm für die 
effektive Verwaltung kleiner und großer Daten¬ 
mengen mit dem Plus4 und C64. Äußerst anpas¬ 
sungsfähig durch freie Gestaltung der Eingabe- 
und Ausgabeformate. 127 Felder/Datensatz. 255 
Zeichen/Feld. Programmierbar. Menüführung. 
Auch für Ci28 erhältlich. Weitgehend kompa¬ 
tible Plus4-Version (C16-64KB) um Grafikbe¬ 
fehle erweitert. Problemloser Datenaustausch, 
auch mit SCRIPT/PLUS. Deutscher Zeichensatz 


für Plus 4. Literatur dazu u.a.: 

Peter Wiesa, Superbase für Einsteiger 

(Data Becker) .29,- 

Koritnik, Programmieren in Superbase 
(Data Becker) .39,- 


KALKULATION: 

CALC/PLUS-Modul 

mit Handbuch (deutsch) _nur 49,— 

Die Tabellenkalkulation, die keine Programmier¬ 
kenntnisse von Ihnen verlangt. Extrem schneller 
Maschinencode im 32-KB-ROM-Modul. Dimen¬ 
sion der Kalkulationsmatrix: bis zu 254 Zeilen und 
63 Spalten! Variable Feldgrößen (5-20 Zeichen). 
Zahlreiche Funktionen. Balkendiagramme. Inte- 
riertes Druckprogramm für Grafik und Text. 
ürC16/Plus4. 

LICHTGRIFFEL: 

TROJAN Light Pen 

mit .Cass 59,—/Disk 69,— 

Ein anderes Eingabemedium. In vielen Fällen 
eine Alternative zur „Maus". Am Joystick-Port 
anschließbar. Mit Mal- und Hardcopy-Programm 
fürC16/Plus4. 

UNTERHALTUNG: 

INFOCOM-Adventures 

je Disk .nur noch 39,- 

Wer Englisch beherrscht oder seine Kenntnisse 
erweitern will, sollte jetzt zugreifen. Kenner be¬ 
schreiben diese fesselnden Textabenteuer mit 
nur einem Wort: „WOW!“. Die berühmten Klas¬ 
siker ZORK I, ZORK II, ZORK III, STARCROSS 
und SUSPENDED sind für den Plus4/C16-64 KB 
nur noch in begrenzter Zahl vorhanden. 

Für 99,- erhalten Sie drei Disketten, alle fünf 
kosten nur 139,-. 

MERCENARY mit SECOND CITY 
.Cass 39,—/Disk 49,— 

Der Testsieger in der Gruppe Grafikabenteuer. 
3D-Vektorgrafik mit deutschen Bildschirmtexten. 
Kompendium mit Hilfsblättern für Plus4/'C126- 
64kB. 

... und vieles mehr. Gratis-Info anfordern. 

ifi Dipl.-Ing. H. Stechmann 

D-2152 Horneburg, Postfach 210 
Tel. 04163/2176 oder 089/3508459 

Versandkosten DM 5,- (bei Nachnahme zzgl. Gebühr) 
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2500 PROGRAMMIERSPRACHEN ZUR AUSWAHL 

Wie in 
Babylon 

Der vielschichtige, schnell wachsende Markt 
der Programmiersprachen und ihrer Dialekte ist auch 
für Insider kaum noch überschaubar. 

Das komplexe Thema ist nicht nur für den Profi- 
Programmierer, sondern auch für jene geeignet, die 
sich einen Überblick dieser babylonischen Sprachen¬ 
verwirrung verschaffen wollen. Wir beenden unsere 
Serie mit neunzehn weiteren Programmiersprachen — 
von OCCAM bis V.l.P. 


49. OCCAM 

Algorithmische Sprache. 
OCCAM entstand als Er¬ 
gänzung zu dem Trans¬ 
puter, einem Microprozes- 
sor, der für Computer mit 
mehreren parallel arbei¬ 
tenden CPUs (Zentralein¬ 
heiten) bestimmt ist. 

Im Gegensatz zu Pascal 
ist die Möglichkeit, eine 
Aufgabe in parallellaufen¬ 
de Prozesse zu unterglie¬ 
dern, in OCCAM bereits 
integriert. Pascal mußte 
hierzu erst erweitert wer¬ 
den (Concurrent Pascal). 
OCCAM ist auch für neue¬ 
re Generationen von Trans¬ 
putern geeignet. Während 
bei den Transputern der 
ersten Entwicklungspha¬ 
sen (mit herkömmlichen 
Prozessoren bestückt, ein 
Teil der Rechenleistung 
der Prozessoren zur Orga¬ 
nisation und Kommunika¬ 
tion zwischen diesen ge¬ 
braucht wurde, kommen 
bei den Weiterentwicklun¬ 
gen spezielle Prozessoren 
zum Einsatz, die hierfür 
besser geeignet sind. 
Hundert herkömmliche 
CPUs konnten sinngemäß 
niemals die hundertfache 
Leistung einer einzelnen 
erbringen, trotz der Pro¬ 
grammiersprache OCCAM, 
die beide Systemkonzep¬ 
te gleichermaßen unter¬ 
stützt. Die volle Leistungs¬ 
fähigkeit kann OCCAM 
bei den neuen Systemen 
unter Beweis stellen. 
Haupteinsatzgebiet von 
OCCAM (und auch das 


der Transputer) sind tech¬ 
nisch-wissenschaftliche 
Applikationen wie die 
Konstruktion von Filter¬ 
schaltungen oder schnelle 
Kurvenberechnung (Fast 
Fourier Transformation). 
Auch Echtzeitgrafiken, 
welche naturgemäß sehr 
rechenintensiv sind, kön¬ 
nen hiermit realisiert 
werden. 

50. Pascal 

Benannt nach dem Wis¬ 
senschaftler Blaise Pascal 
(1623 - 1663). 

Pascal ist eine starke lo¬ 
gisch strukturierte Pro¬ 
grammiersprache, die her¬ 
vorragende Hilfestellun¬ 
gen beim Programmieren 
umfangreicherer Proble¬ 
me gibt. 

Auf dem Markt ist Pascal 
seit etwa 1969. 

Als Nachteil wäre zu nen¬ 
nen, daß Pascal für das Er¬ 
stellen kleinerer Program¬ 
me zu aufwendig ist. 

Pascal ist eine der wenigen 
Sprachen, die Mengen 
(aus der Mengelehre) sinn¬ 
voll direkt verarbeiten 
kann, ohne den Pro¬ 
grammaufwand wesentlich 
zu erhöhen. 

Es gibt zwischenzeitlich 
mehrere Versionen von 
Pascal: 

■ Pascal (Jensen/Wirth- 
Standard), 

■ Pascal/Z, 

■ Pascal/MT+, 

■ UCSD-Pascal (siehe 
unten), 

m TINY Pascal, 


wegen ihrer ausgezeichne¬ 
ten Verarbeitungsge¬ 
schwindigkeit die Ver¬ 
breitung von Pascal 
wesentlich beeinflußt 
haben. 

(Progranunbeispiel siehe 
Tabelle 15.) 

UCSD-Pascal System 

Das UCSD-Pascal wurde 
an der University of Cali¬ 
fornia in San Diego ent¬ 
wickelt, daher auch sein 



■ Concurrent Pascal 
(für Parallelverarbei¬ 
tung), 

■ Pascal/M*, 

■ Pascal-XT (Extended 
Pascal), 

■ Pascal-SC (Pascal for 
Scientific Compu- 
tation), 

■ TURBO-Pascal 

■ und andere. 

Letztere Version dürfte 
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SERIE! 


Name. Mittlerweile gibt 
s UCSD-Pascal für fast 
_lle Rechnertypen, so 
iaß die Software in Pas¬ 
cal sehr portabel ist. 

Der Standard des UCSD- 
Pascal wird hier einmal 
anhand seines Betriebs¬ 
systems dargestellt, da 
es sich um mehr als einen 
einfachen Interpreter 
oder Compiler handelt. 
UCSD-Pascal besteht aus 


mehreren Files (auf Dis¬ 
kette). Die Aufteilung in 
mehrere Files ist wegen 
des Umfangs einzelner 
Leistungsabschnitte not¬ 
wendig. Bei Bedarf wird 
auf diese Files zugegrif¬ 
fen, daher müssen sie im 
Falle des Aufrufs durch 
den Anwender verfügbar 
sein; die Diskette muß 
sich im Laufwerk befin¬ 
den. So ist beispielswei¬ 


se das File mit dem Na¬ 
men SYSTEM. APP LE 
notwendig, um das Sy¬ 
stem zu booten (hier im 
Beispiel auf einem Apple- 
Computer). 

Alle Systemfiles begin¬ 
nen mit dem Namen 
SYSTEM: 
SYSTEM.PASCAL 
SYSTEM.CHARSET 
SYSTEM .APPLE 
SYSTEM .EDITOR 


SYSTEM.COMPILER 
SYSTEM.LIBRARY 
und so weiter. 

Die Namen lassen oft 
schon ahnen, welche Files 
sie bezeichnen. Dem An¬ 
wender ist es nicht mög¬ 
lich, Files anzulegen, die 
ebenfalls mit SYSTEM be¬ 
ginnen, damit sind die sy¬ 
stemeigenen Files deut¬ 
lich von den Anwender¬ 
files abgegrenzt. 










Drücken auf die Taste „?“. 
Es erscheint: 

COMMAND: User restart, 
Initialize, Halt, Swap, 
Make exec. 

Diese Befehle sind soge¬ 
nannte Direktbefehle, also 
Teil des Betriebssystems, 
während die Befehle der 
oberen Zeile Aufrufe für 
Dienstprogramme sind. 
Diese müssen erst von der 
Diskette nachgeladen 
werden. 

Anders als in BASIC be¬ 
wirkt Run hier nicht le¬ 
diglich einen Programm¬ 
start. Run ist selbst ein 
Dienstprogramm, wel¬ 
ches den Compiler auf¬ 
ruft und startet. Dieser 
compiliert daraufhin das 
Workfile. Der Linker 
wird bei Bedarf automa¬ 
tisch dazugeladen. Das 
so übersetzte und gebun¬ 
dene Programm wird 
anschließend noch ge¬ 
startet. 

Run wird also nur für 
noch nicht compilierte 
Programme benötigt. Der 


Tabelle 16 : 


Beispiel zu PEAR1 Echt zeit spräche 
listing 


AFTER 5 SEC ALL 18 SEC Oer RechenprozeB RELAIS wird nach 5 

DURIN8 180 MIN ACTIVATE Sekunden, «ährend 180 Minuten, im 7 

RELAIS PRIORITZ 1 Sekundenzyklus, mit Priorität 1 belegt. 


labe Ile 16 : 


Pr ograumbeispiel zu PASCAL 
tisting 

PROGRAMM SCHEIBEN (INPUT, OUTPUT); 

VAR Is INTEGER 

LINKS, MITTE, RECHTS; CHARj 

PROCEDURE VERLAENGERE (I:INTEGER; LINKS, RECHTS, MITTE; CHAR); 
BES IN 

IF ! .. SO THEN 
8EGIN 

VERLAENGERE EM, LINKS, MITTE, RECHTS); 

WRITELN ('VON', LINKS, 'NACH', RECHTS); 

VERLAENGERE (1-1, MITTE, RECHTS, LINKS); 

ENO; 


BE6IN 
I:= 3 
LINKS:= 

MITTE; = 'ß\; 

RECHTS;- 'C'; 

VERLAENGERE (I, LINKS, RECHTS, MITTE); 


(* HAUPTPROGRAMM *) 

(* = ANZAHL OER SCHEIBEN *) 


Die Struktur des UCDS- 
Systems ist klar geglie¬ 
dert in Systemeinheiten 
wie Editor, Compiler, In¬ 
terpreter, Linker, Assem¬ 
bler und Liier. Die Sy¬ 
stemkomponenten müs¬ 
sen also je nach Bedarf 
in den Rechner geladen - 
werden. Zum Program¬ 
mieren muß zunächst ein 
Eile erstellt werden, in 
welches mit Hilfe des Edi¬ 
tors das Programm ge¬ 
schrieben werden kann. 
Zum Übersetzen muß 
dann der Compiler gela¬ 
den werden. 

Die Arbeit mit dem Sy¬ 
stem findet also auf ver¬ 
schiedenen Ebenen statt. 
Das UCSD-System kennt 
drei verschiedene File¬ 
typen zur Diskettenor¬ 
ganisation: 

Text-Files, 

Data-Filex, 

Code-Files. 

Der entsprechende File¬ 
type muß bei der Na¬ 
mensgebung des Files 
mitangegeben werden, 
beispielsweise NAME. 
TEXT oder INHALT. 
DATA. Textfiles sind sol¬ 
che Dateien, die mit dem 
Editor beschrieben wer¬ 
den können (etwa Pro¬ 
gramme in Pascal). Dieses 
File kann abgedruckt 
(Programmlisting) oder 
compiliert werden. Der 
Compiler bearbeitet den 
Inhalt des angegebenen 
Textfiles und speichert 
das Ergebnis der Überset¬ 
zung in einem Codefile 
ab. Dieses enthält also 
den ausführbaren Code. 
Datenfiles enthalten, wie 
ihr Name schon sagt, 
Daten, welche in einem 
Programm abgespeichert 
oder von diesem gelesen 
werden können. 

Das Workfile ist das Sy¬ 
stemfile (Text oder Code) 
auf das immer automa¬ 
tisch zugegriffen wird. 

Der Editor oder der Com¬ 
piler öffnet — sofern 
nichts anderes angegeben 
wird — immer ein Input- 
File und ein Output-File. 
Befindet sich kein Work¬ 
file auf der Diskette und 
wurde auch kein ande¬ 
res File angegeben, so er¬ 
scheint eine Fehlermel¬ 
dung. 


Im Directory-Beispiel 
sind zwei solcher Work¬ 
file s: 

SYSTEM.WRK.TEXT 
und 

SYSTEM.WRK.CODE 

Das SYSTEM.WRK. 
TEXT-File dient dem 
Editor zugleich als Ein- 
und Ausgabefile, denn 
der Editor bearbeitet nur 
Texte, während er Com¬ 
piler Texte in Codes um¬ 
formt. Daher benutzt die¬ 
ser zwar das gleiche Ein¬ 
gabefile, braucht aber 
zur Ausgabe ein Code- 
File: 

SYSTEM.WRK.CODE. 


Eine Diskette darf im¬ 
mer nur zwei Workfiles 
enthalten (Text und 
Code). 

Nach dem Booten (La¬ 
den) des USCD-Systems 
befindet sich der Rech¬ 
ner in der Kommando¬ 
ebene, von der aus Direkt¬ 
befehle gegeben und 
Dienstprogramme gestar¬ 
tet werden können. Der 
Rechner erwartet einen 
Befehl: 

COMMAND: Edit, Run, 
File, Comp, Link, Xecute, 
Assem, Debug. 

Weitere Befehlsmöglich¬ 
keiten erfährt man beim 


Befehl, welcher dem 
BASIC-Run entspricht, 
wäre hier der „eXecute“- 
Befehl. 

Run erleichtert das Aus¬ 
testen von Programmen, 
da bei der Fehlersuche 
nicht jedesmal der Com¬ 
piler von Hand aufgerufen 
werden muß. 

Neben dieser Möglichkeit 
kann der Pascal-Compiler 
auch direkt aufgerufen 
werden. 

Der Compier übersetzt 
den Inhalt des Workfiles 
(Text) in direkt ausführ¬ 
baren Code und speichert 
diesen in dem Workfile 
SYSTEM.WRK.CODE ab. 
Ist eines der beiden Work- 
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flies auf der Diskette 
nicht vorhanden, oder sol¬ 
len andere Files benutzt 
werden, so kann dies op¬ 
tional angegeben werden. 
Erst compiüerte Program¬ 
me können mit „eXecute“ 
gestartet werden. 

Der Pascal-Linker ermög¬ 
licht die Einbindung von 
Assembler-Routinen in 
ein Pascal-Programm. Die¬ 
se Routine muß im Pascal¬ 
programm als „external“ 
deklariert sein. External 
veranlaßt das System, vor 
Ausführung des Program¬ 
mes die einzubindende 
Routine aufzusuchen und 
zu linken. Der Compiler 
meldet dies am Bild¬ 
schirm. Beim Run-Befehl 
wird der Linker automa¬ 
tisch aufgerufen. 
UCSD-Pascal erlaubt 
auch eine Art Batch-Be¬ 
trieb: Ein Exec-File, wel¬ 
ches mit „M“ erzeugt 
wird, kann Systembefeh¬ 
le enthalten, die bei 
Start des Exec-Files aus¬ 
geführt werden. Dabei ist 
es gleichgültig, ob es sich 
um Direktbefehle oder 
Dienstprogramme han¬ 
delt. Wie bei manchen an¬ 
deren Betriebssystemen 
kann somit ein Batchfile 
erstellt werden, ein File, 
das Stapelverarbeitung zu¬ 
läßt (Batch = Stapel). 

Der Name rührt noch aus 
der Lochkartenzeit. Man 
hatte die Möglichkeit, 
Lochkarten mit verschie¬ 
denen Direktbefehlen auf¬ 
einanderzustapeln und 
diese gebündelt dem Com¬ 
puter einzugeben. Die Be¬ 
arbeitung der Befehle er¬ 
folgt in der vorgegebenen 
Reihenfolge. Sprünge oder 
Verzweigungen sind nicht 
möglich. 

Das UCSD-Pascal-System 
hat in seiner Struktur 
große Ähnlichkeit zu ver¬ 
breiteten Betriebssyste¬ 
men größerer Rechner. 

Ein markanterer Vorteil 
ist aber die Standardisie¬ 
rung für verschiedene 
Rechner und die Verbin¬ 
dung von Sprache und Sy¬ 
stem zu einer Einheit. 

Erst dadurch ist es mög¬ 
lich, echte portable Soft¬ 
ware zu entwickeln. Zwar 
gibt es inzwischen viele 
Compiler für Pascal, aber 


das UCSD-System konn¬ 
te sich behaupten. 

51. Pearl 

Process and Experiment 
Automation Realtime 
Language. 

Wie der Name dieser Pro¬ 
grammiersprache schon 
sagt, ermöglicht sie das 
Realtime Processing, also 
die Echtzeit-Verarbei¬ 
tung: Das Programm läuft 
in der gleichen Zeit wie 
ein Prozeß. Der Rechner 
arbeitet also parallel zu 
einem technischen Ab¬ 
lauf. Die Daten, die aus 
diesem technischen Ab¬ 
lauf (Prozeß) gewonnen 


ECHTZEIT¬ 

VERARBEITUNG 


werden, werden simultan 
verarbeitet. Aufgrund 
dieser Daten kann der 
Rechner in den Prozeß 
in Form einer Korrektur 
des Prozeß-Ablaufs ein- 
greifen, oder für die Fort¬ 
führung des Prozesses 
wichtige Entscheidungen 
treffen (Prozeßdatenver¬ 
arbeitung). 

Bei der Konzeption von 
Pearl wurde besonderen 
Wert darauf gelegt, daß 
Echtzeit-Sprachelemente 
in den Sprachkern von 
Pearl aufgenommen wur¬ 
den — anders als bei den 
meisten übrigen höheren 
Programmiersprachen —, 
die über solche spezifi¬ 
schen expliziten Sprach- 
mittel nicht verfügen. 
Meist werden dort bei¬ 
spielsweise in Unterpro¬ 
grammaufrufen Funktio¬ 
nen des Betriebssystems 
organisiert. 

(Programmbeispiel siehe 
Tabelle 16.) 

Die Zeichenketten-Ver- 
arbeitung in Pearl ist un¬ 
zureichend, obwohl die¬ 
se Sprache fast ausschließ¬ 
lich auf digitalen Groß¬ 
rechnern zum Einsatz 
kommt. 

Hingegen sind die Struk¬ 
turen für die Ein- und 
Ausgabe, sowie die 
Sprachmittel für Algo- 
rithmik ähnlich denen 
anderer höherer Program¬ 
miersprachen. Einflüsse 
von Algol 68 und Pascal 
sind augenfällig. Die Syn¬ 


tax ist weitgehendst an 
PL/1 angepaßt. 

Versuche der Implemen¬ 
tierung von Pearl auf klei¬ 
neren Anlagen scheiter¬ 
ten lange an dem für da¬ 
malige Verhältnisse gro¬ 
ßen Speicherplatzbe¬ 
darf. 

Inzwischen stehen auch 
bei kleinen Computern 
Speicherkapazitäten zur 
Verfügung, die eine In¬ 
stallation von Pearl zu¬ 
ließen. Jedoch nur für we¬ 
nige Kleinrechner oder 
Microcomputer gibt es 
Implementierungen ( 
zum Beispiel RTOS-Pearl). 
Eines der Hauptmerkma¬ 
le dieser „Prozeßrechner¬ 
sprache“ ist die Trennung 
in resistente und nichtre¬ 
sistente Prozeduren. 

Pearl wurde gemeinsam 
von deutschen Wissen¬ 
schaftlern. dem VDI/ 
VDE, industriellen An¬ 
wendern, deutschen Pro¬ 
zeßrechnerherstellern 
und Softwareproduzen¬ 
ten entwickelt und wurde 
erstmals 1980 in der 
DIN 66.253, Teil 2: „In¬ 
formationsverarbeitung; 
Programmiersprache 
Pearl, Full Pearl“, festge¬ 
legt, allerdings in engli¬ 
scher Sprache mit der Ab¬ 
sicht, den internationalen 
Anwenderkreis zu be¬ 
rücksichtigen. 
(Programmbeispiel siehe 
Tabelle 1 7.) 

Ähnlich anderer höherer 
Program mierspra chen 
(etwa Cobol) wird ein 
Pearl-Programm in ver¬ 
schiedene Divisions unter¬ 
teilt. Diese Einheiten sind 
unabhängig voneinander 
compilierbar. Die getrennt 
übersetzten Programmtei¬ 
le (Module) werden mit 
sogenannten Global-Gro¬ 
ßen miteinander verbun¬ 
den. 

Ein fertiges Modul be¬ 
steht im allgemeinen aus 
zwei Divisions: der Sy¬ 
stem-Division, welche die 
Systemumgebung be¬ 
schreibt und der Problem- 
Division, der Problemlö¬ 
sung einer bestimmten 
Aufgabe. 

Im System-Teil eines 
Pearl-Programms werden 
die peripheren Geräte und 
deren Verbindungen be¬ 


schrieben; insbesondere 
werden Eingangs- und 
Ausgangskanäle definiert. 

Es kann hier weiterhin 
festgelegt werden, ob die 
Übertragung auf diesen 
Kanälen (also von oder 
zu den peripheren Gerä¬ 
ten) digital oder analog 
erfolgen soll. An dieser 
Stelle werden die Vortei¬ 
le der Programmauftei¬ 
lung in Problem- und Sy¬ 
stem-Division am deut¬ 
lichsten: Sollen bei be¬ 
stehendem System einzel¬ 
ne Teile der Peripherie ge¬ 
gen verbesserte Gerätety¬ 
pen ausgetauscht oder 
ergänzt werden, müssen 
lediglich einzelne Teile 
der System-Division geän¬ 
dert werden. Nämlich nur 
die dieses Gerät beschrei¬ 
benden Programmzeilen, 
nicht jedoch alle Befehle 
im Programm, welche das 
entsprechende Gerät an¬ 
sprechen, wie es in man¬ 
chen anderen Programmier¬ 
sprachen der Fall sein 
kann. 


SYSTEM- UND 
PROBLEM-DIVISION 


Bei der Übertragung des 
Pearl-Programms auf an¬ 
dere Rechnertypen oder 
Anlagenkonfigurationen 
kann die System-Division 
komplett ausgetauscht 
werden, die Problem-Di¬ 
vision kann dabei unver¬ 
ändert bleiben. 

Hierdurch ist der System- 
Teil von Pearl durchaus 
vergleichbar mit einer Job- 
Control-Language übli¬ 
cher Compiler. 

In der Problem-Division 
wird das eigentliche Pro¬ 
blem formuliert, das mit 
Hilfe des Programms be¬ 
wältigt werden soll. Der 
Problem-Teil besteht aus 
verschiedenen Tasks, die 
eine ähnliche Struktur ha¬ 
ben können wie Haupt- 
und Unterprogramme an¬ 
derer höherer Program¬ 
miersprachen. Diese 
Tasks aktivieren sich ge¬ 
genseitig in vorgegebener 
Abfolge oder gleichzeitig, 
je nach Anforderung. Die 
erste Task eines Pearl-Pro¬ 
gramms wird von außen 
aktiviert (Programm¬ 
start). 
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■ SERIE 


Tabelle 17: 


Progra«tieispiel tu PEARL 
Listing 


/* EXAHPIE PRESSURE CONTROL */ 


WJLTIPLEltOR 
DI6ITALOUT(BJ 
ANALQG1NI8) 
VALVE 
LAMP 

DISCHARGE 

PRESSURESENSOR! 

PRESSURESENS0R2 

READY! 

ALARM: 


CPU*5? 

HULTIPLEXOR*0} 

HULTIPLEXOR«; 

ÖI6ITALQUH8J *8,2; 

DI8ITALQUT<8)*3,1; 

DI6ITALDUT(ß)*6,l; 

ANALOSINI0)*!; 

ANAL0SIN(8)*3j 

INTERRUPT1NPUT*8| 

INTERRUPTINPUT*2; 


PROBIER; 


SPECIFY VALVE DATION OUT BASIC DIHü TFU, 
(LAMP, DISCHARGE) DATION OUT BASIC, 
(PRESSURESENSOR*!, PRESSURESENSQR*2) 
DATION IN BASIC DINO TFU, 

DECLARE (PRESS1, PRESS2, HEANPRESS) FLOAT, 
OPENVALVE 8IT(2) INITIAL(‘10’B>, 
CLOSEVALVE BIT(2) INITIAL('18'Bl, 
(TURNON, TURNOFF) 

BIT INITIAL (TB, '='B)j 

START: TASK GLOBAL; /* ACTIVATED FROR OUTSIDE */ 

EVERY 1 SEC ACT1VATE PRESSURECONTRUL; 

RHEN ALARR ACTIVATE ALARMINBj 
END; /* OF TASK STRAT */ 

PRESSURECONTROL! TASK PRIORITY 5; 

TAKE PRESS I FROR PRESURESENSORI) 

TAKE PRESS 2 FROH PRESURESENS0R2ä 
HEANPRESS = (PRESS1 * PRESS21/2; 

IF HEANPRESS = .30 

THEN SEND OPENVALVE TO VALVE; 

ELSE IF HEANPRESS = .28 THEN SEND 
CLOSEVALVE TO VALVE; 

FIN; 

EIN;, 

END; /* OF TASK PRESURECONTROL */ 

ALARHINGi TASK PRIORITY 3; 

SEND TURNON TO LAHP; 

SEND TURNON TO DISCHARSE; 

NH!LE HEANPRESS * .28 
REPEAT 

AFTER 2 HIN RESUHE; 

END; /* LOOP */ 

SEND TURNOFF TO LAHP; 

SEND TURNOFF TO DISCHARSE; 

END; /* OF TASK ALARHINS */ 


Pearl erlaubt die Verwen¬ 
dung von sechs verschie¬ 
denen Datentypen: 

FIXED 

f anze Zahlen, 

LOAT 

Gleitkommazahlen, 

CHARACTER 

Zeichenketten, 

BIT 

Bitmuster (Kette), 

CLOCK 

Zeitpunkte, 

DÜRATION 

Zeitdauer. 

Im Programm verwendete 
Variablen und Konstan¬ 
ten müssen als einer der 
oben aufgeführten Daten¬ 
typen vereinbart werden. 
Ähnlich wie in Pascal las¬ 
sen sich in Pearl Felder 
und Zuordnungen von Va¬ 
riablen bilden. Felder 
können wieder Felder ent¬ 
halten und getrennt ange¬ 
sprochen werden. 
Hierdurch ist es in Pearl 
möglich, die Daten hier¬ 
archisch zu strukturie¬ 
ren, Gruppen innerhalb 
von Feldern verschiede¬ 
nen Prioritätsstufen zu¬ 
zuordnen. 

Pearl-Prozeduren steuern 
die Übergabe von Para¬ 
metern und Konstanten. 
Die Übergabe eines Pa¬ 
rameters kann etwa von 
dessen Wert oder seiner 
Adresse (Identität) ab¬ 
hängig gemacht werden. 
Man unterscheidet: 

■ Initial-Prozedur: Der 
aktuelle Parameter wird 
einfach kopiert; 

■ Identical-Prozedur: Im 
Gültigkeitsbereich des 
Prozedurblocks (Modul 
oder Task) wird ein neu¬ 
er Name für den Para¬ 
meter vereinbart; 

■ Returns sind Funk¬ 
tionsprozeduren, die eine 
Größe zurück liefern; 

■ Inline bewirkt eine Di¬ 
rekteinfügung des ent¬ 
sprechenden Prozedur- 
Parameters. 

In Pearl sind Sonderver¬ 
einbarungen möglich. 

Dem Benutzer wird ge¬ 
stattet, sowohl neue, ab¬ 
strakte Datentypen (ne¬ 
ben den oben genannten) 
als auch neue Operatio¬ 


nen zu definieren. Be¬ 
sonders interessant und 
effektiv ist diese Möglich¬ 
keit der Sonderfunktions¬ 
gestaltung im Zusammen¬ 
hang mit den oben ge¬ 
nannten Feldern. 

Die E/A-Struktur von 
Pearl besteht aus einem 
Netzwerk von ..Datensta¬ 
tionen“ und ,,Kanalum- 
setzem“. 


Datenstationen verkör¬ 
pern allgemein alle Peri¬ 
pheriegeräte oder deren 
Kanäle. Jede Datensta¬ 
tion besteht aus maximal 
vier Kanälen: dem Daten¬ 
kanal, dem Steuerkanal, 
dem Ünterbrecherkanal 
und dem Signalkanal. 

Die einzelnen Kanäle müs¬ 
sen im Programm spezifi¬ 
ziert werden. 


Kanalumsetzer schaffen 
die Möglichkeit der An¬ 
passung verschiedenarti¬ 
ger Peripheriegeräte auf 
einheitliche Formate zur 
Kommunikation mit der 
Zentraleinheit oder un¬ 
tereinander. Kanalumset¬ 
zer arbeiten wie Interfa¬ 
ces. Sie setzen die Daten 
innerhalb eines Kanals 
in einer prozedurartigen 
Routine um. 

Zur Pearl-Syntax gehört 
eine Reihe von Sprachele- 
menten, die es ermögli¬ 
chen, beispielsweise pa¬ 
rallel ablaufende Prozes¬ 
se zu steuern und sowohl 
termin- und zeitgerechte 
Abläufe zu aktivieren. 

Auf die vielschichtigen 
Befehlsstrukturen kann 
hier nicht eingegangen 
werden, aber im obigen 
Beispiel wird ziemlich 
deutlich, welche Real- 
time-Möglichkeiten Pearl 
besitzt. 

Pearl ist für Anwender ge¬ 
schaffen worden. Gegen¬ 
über Systemimplementie¬ 
rungssprachen wie Con- 
current Pascal, Modula 
oder Ada ist Pearl leich¬ 
ter erlernbar und bietet 
zudem große Vorteile. 

Die Sprachelemente zur 
Formulierung algorithmi¬ 
scher Zusammenhänge 
und Abläufe entsprechen 
dem Standard moderner 
Programmiersprachen (so 
etwa Pascal, PL/1). 

Pearl hat durch die Auf¬ 
teilung in Divisions ein 
hohes Maß an Portabili¬ 
tät und Dokumentations¬ 
wert. Strukturiertes Pro¬ 
grammieren wird unter¬ 
stützt. Pearl ist in vielen 
Anwendungsbereichen ei¬ 
ne echte Alternative zur 
Assembler-Programmie¬ 
rung. 

52. PILOT 

Programmed Inquiry 
Learning Or Teaching. 
PILOT ist eine Dialogspra¬ 
che (siehe auch BASIC) 
und wurde von Prof. John 
Starkweather entwickelt. 
PILOT hat nie den Be¬ 
kanntheitsgrad von BA¬ 
SIC erreichen können. 
Gründe hierfür sind unter 
BASIC (im ersten Teil 
unserer Serie) nachzule¬ 
sen. 
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Tabelle 18: 


PrograBflbeispiel zu PL/I* 
Listing 


BLOCK1: PROCEDURE OPTIONS(MAIN); 

DECLARE A DECIMAL FIXED(5,2), 

B BINARY FLOAT(24», 

C CHARACTER(20), VARYIN6; 

A = 2.34; 

B = 4.56E+4; 

C = 'BEISPIEL'; 

PUT SKIP(2) LIST('BLOCK I, ZEILE V:'>: •$ 

PUT SKIP LIST('A , A, 1 B =’ ,B,' C = ' ,0; 

BL0CK2: BESIN; 

DECLARE A BINERY FLOAT(18) EXTERNAL, 

X BINERY F1XEDII5), 

A = 2.875E+3; 

B = 5.625E-3; 

X = 275; 

PUT SKIP(2) LIST«'BLOCK 2, ZEILE 18:'): 

PUT SKIP LIST('A =' ,A,' B = ' ,B,' C =' ,C,' X =' ,X,); 
END BL0CK2; 

PUT SKIP(2) LIST('BLOCK !, ZEILE 22:'): 

PUT SKIP LISTCA *' ,A,' B =' ,B,' C =' ,0; 

BLOCK 3: BESIN; 

DECLARE A BINARY FLOAT (Ml EXTERNAL, 

C CHRACTERC-) VARYIN6, 

X BINARY FIXEDUX); 

X = 386; 

C = ' BEISPIEL 1*; 

PUT SKIP(2) LIST('BLOCK 3, ZEILE 31:'): 

PUT SKIP LISTCA ,A,' B ,B,' C *' ,C' X =' ,X,); 
END BL0CK3; 

PUT SKIP(2) LIST('BLOCK 1, ZEILE 35:'): 

PUT SKIP LISTCA =' ,A,' B =' ,B,' C =' ,0; 


END BLOCK1; 


Im Gegensatz zu BASIC 
ist PILOT aber eine Dia¬ 
logsprache ohne Kom¬ 
promisse. Sie wird oft 
als die Dialogsprache 
schlechthin bezeichnet. 
Heutigen Versionen, wie 
dem Utah-PILOT (auch 
für IBM-PC kompatible 
Rechner unter MS-DOS 
erhältlich), liegt der 
PILOT-73-Standard zu¬ 
grunde, — ständig er¬ 
weitert und verbessert. 
PILOT ist für Anfänger 
geschrieben und leicht 
erlernbar und kann daher 
auch ideal für Lernzwek- 
ke eingesetzt werden. 

Als Dialogsprache ist sie 
im besonderen Maße für 
interaktive Anwendun¬ 
gen geeignet. Hierzu wer¬ 
den großartige Hilfestel¬ 
lungen in der Syntax ge¬ 
boten: spezielle Daten¬ 
eingänge, programmier¬ 
te Instruktionen, Testrou¬ 
tinen und anderes. 
Interaktive Anwendun¬ 
gen liegen dann vor, wenn 
im besonderen Maße Wert 
auf den Dialog zwischen 
Mensch und Maschine ge¬ 
legt wird (was oft pro¬ 
blembedingt sein kann). 

PI LOT hat ein recht ein¬ 
faches Format und eine 
leicht verständliche Syn¬ 
tax. 

53. PLANKALKÜL 

Eine der ersten universel¬ 
len algorithmischen Spra¬ 
chen überhaupt. Entwik- 
kelt wurde sie schon 1945 
von Dr. Ing. e.h. Konrad 
Zuse, dem Erbauer der 
ersten programmgesteuer¬ 
ten Rechenanlage. 
PLANKALKÜL war weg¬ 
weisend für die Entwick¬ 
lung aller symbolischen 
Programmiersprachen. 

54. PL/1 

Programming Language 
Nr. 1 

PL/1 könnte man als Syn¬ 
these aus Fortran, Algol 
und Cobol bezeichnen, 
was ihren Anwendungsbe¬ 
reich sowohl in den tech¬ 
nisch-mathematischen als 
auch in den kaufmänni¬ 
schen Bereich legt (Misch¬ 
sprache). Hier wurde ver¬ 
sucht, die aus der Erfah¬ 
rung mit diesen Sprachen 
erkannten Mängel zu ver¬ 


meiden und die Vorteile 
in einer gemeinsamen 
Sprache zu vereinen. 

Von Algol wurde die stren¬ 
ge Einteilung eines Blocks 
in Vereinbarungs- und An¬ 
weisungsteil, die Block¬ 
struktur sowie die format¬ 
freie Ein- und Ausgabe, 
die Ablaufstrukturen, Re¬ 
cords, Pointer und das 
Prozedure-Konzept mit 
rekursivem Aufruf über¬ 
nommen. Cobol lieferte 
die Dezimalarithmetik, 
Picture-F ormatierung, 
Textverarbeitung, Daten¬ 
strukturierung und eine 
umfangreiche Dateiver- 
waltung. Aus Fortran 
kommen die impliziten 
Laufanweisungen, numeri¬ 
sche Standardfunktionen, 
die Functions-Subroutine 
und das Prinzip der Com- 
mon-Bereiche (siehe hier¬ 
zu auch unter Fortran). 
Der Nachteil: PL/1 ist in 
vollem Umfang nur auf 
größeren Rechenanlagen 


anwendbar, da der benö¬ 
tigte Speicherplatz wesent¬ 
lich größer ist als der bei 
anderen Programmierspra¬ 
chen. 

Auch die Syntax ist um¬ 
fangreicher, was das Er¬ 
lernen von PL/1 er¬ 
schwert. 

Vorteile: PL/1 ist flexib¬ 
ler in den Anwendungen 
und problemloser bei der 
Verarbeitung großer Da¬ 
tenmengen innerhalb der 
Rechenanlage. PL/1 ver¬ 
eint die Vorteile verschie¬ 
dener anderer Program¬ 
miersprachen in sich: auf 
der einen Seite gute Text¬ 
handhabung und Dialog¬ 
fähigkeit, auf der anderen 
Seite die mathematischen 
Möglichkeiten der genann¬ 
ten Programmiersprachen. 
Der modulare Aufbau von 
PL/1 gestattet es dem An¬ 
fänger, zunächst einen 
kleinen Teil der Syntax zu 
erlernen und sich dann 
schrittweise den gesamten 


Sprachumfang anzueignen. 
Vieles wird vom PL/1- 
Compiler übernommen, 
wie zum Beispiel die Spei- 
cherplatzorganisation, Da¬ 
tenumwandlungen, Forma¬ 
tierung der Ein- und Aus¬ 
gabe und anderes. 

Man spricht hierbei vom 
Default-Konzept. Der PL/ 

1 -Sprachumfang ist so um¬ 
fassend, daß fast alle An¬ 
wendungsgebiete abge¬ 
deckt werden können. So 
muß nicht bei wechseln¬ 
den Anforderungen auch 
die Programmiersprache 
gewechselt werden. 

PL/1 unterstützt Mehrbe¬ 
nutzer-Betriebssysteme 
durch mehrstufige Pass¬ 
wortabfrage und Datei¬ 
schutz bis zum Sperren. 
Integriert sind außerdem 

FLEXIBEL UND 
UMFASSEND 

umfangreiche Möglich¬ 
keiten zur Behandlung 
von Ausnahme- und Feh¬ 
lersituationen sowie 
Overlaytechniken. 

PL/1 wurde zum ersten 
Mal 1965 vorgestellt. 
Seitdem wurde sie, wie 
viele andere Programmier¬ 
sprachen auch, weiterent¬ 
wickelt. Da dies aber 
nicht durch einen neu¬ 
tralen Ausschuß geschah 
(ANSI), gibt es heute 
mehrere PL/1-Dialekte. 
Erst 1979 wurde PL/1 in 
einer Norm vereinheit¬ 
licht: 

■ ISO 6160: „Program¬ 
ming Language PL/1“ 
(international); 

■ DIN 66.255: „Infor¬ 
mationsverarbeitung; Pro¬ 
grammiersprache PL/1“, 
Ausgabe 1980. 

Jedoch in englischer Spra¬ 
che, da man eine Abwei¬ 
chung bei der Überset¬ 
zung ins Deutsche be¬ 
fürchtete, was unter allen 
Umständen vermieden 
werden sollte, denn die 
Deutsche Industrie-Norm 
sollte fachlich der interna¬ 
tionalen (ISO) Norm ent¬ 
sprechen. 

PL/1 gehört heute zu den 
am meisten verbreiteten 
Programmiersprachen und 
ist auch für die Simultan¬ 
verarbeitung geeignet. 
Simultanverarbeitung liegt 





dann vor, wenn ein Pro¬ 
gramm gleichzeitig mit 
mehreren peripheren Ge¬ 
räten (Drucker, Dateien...) 
arbeitet. Hierbei entsteht 
weniger Wartezeit, da die 
Peripherie einer Anlage 
sehr viel langsamer ist als 
die Zentraleinheit. 
Steuereinheiten in den 
Kanälen ermöglichen den 
gleichzeitigen Einsatz 
mehrerer Geräte. 

Ein weiterer Vorteil von 
PL/1 liegt in den vorhan¬ 
denen Sprachbestandtei- 
len zur Gliederung von 
Programmen. 

ln PL/1 werden Unterpro¬ 
gramme als Prozeduren 
geschrieben, die wieder¬ 
um von anderen Prozedu¬ 
ren aufgerufen werden 
können. Komplizierte 
Aufgabenstellungen kön¬ 
nen so in logisch unterteil¬ 
te Abschnitte (Module) 


MODULTECHNIK 


untergliedert werden. Dies 
verbesserte die Effezienz 
eines Programms erheb¬ 
lich, vor allem in Hinblick 
auf die Transparenz des 
Lösungswegs. Korrektu¬ 
ren und Änderungen (die 
Programmpflege) werden 
dadurch erheblich er¬ 
leichtert. 

Alle Prozeduren, die nach 
dem Start des Haupt-Pro¬ 
gramms bis zur Rückgabe 
der Ablaufsteuerung an 
das Betriebssystem akti¬ 
viert werden, bilden das 
Gesamtprogramm. 

Dieses kann aus internen 
und externen Prozeduren 
bestehen. Das Hauptpro¬ 
gramm ist dabei immer ei¬ 
ne externe Prozedur, die 
durch den Zusatz Op- 
tions(Main) gekennzeich¬ 
net wird, alle anderen 
Prozeduren sind Unter¬ 
programme. 

Interne Prozeduren sind 
Bestandteile anderer Pro¬ 
zeduren (übergeordnete 
Prozedur) und werden 
mit dieser gemeinsam 
übersetzt und gebunden. 
Sie können nur mit der 
übergeordneten Prozedur 
verwendet werden. 

Im Gegensatz hierzu wer¬ 
den externe Prozeduren 
separat übersetzt und bil¬ 
den eigenständige Module. 


Diese können in Bibliothe¬ 
ken abgelegt und bei Be¬ 
darf an Hauptprogramme 
angebunden werden. 

PL/1 gibt es in der Zwi¬ 
schenzeit auch für viele 
Klein- und Micro-Compu- 
tersysteme unter CP/M 
oder MS-DOS. 

Bekannt wurde noch PL/ 
9900, eine Abwandlung 
von PL/1, entwickelt von 
Texas Instruments für de¬ 
ren Rechnerkonzept 9900. 
Inzwischen hat aber fast 
jeder Hardware-Herstel¬ 
ler eigene Implementatio¬ 
nen von PL/1 für seine 
Maschinen im Angebot, 
sofern die Rechner für 
PL/1 geeignet sind. 

Eine interessante Neu¬ 
entwicklung stellte auch 
PL/M dar, eine spezielle, 
abgemagerte Version für 
Micro-Computer. 

(Pro gram m beisp iel sieh e 
Tabelle 18.) 

55. Prolog 

PROgramming in LOGic. 
Prolog ist eine deklarati¬ 
ve Programmiersprache, 
wie sie zur Lösung von 
Problemen aus dem Be¬ 
reich der künstlichen In¬ 
telligenz (KI) eingesetzt 
werden. 

Deklarative Sprachen be¬ 
schreiben die vom Pro¬ 
gramm zu lösende Auf¬ 
gabe, der Lösungsweg 
(Algorithmus) muß nicht 
definiert werden. Daher 
spricht man auch von lo¬ 
gischer oder symbolischer 
Programmierung. 

Die in Prolog bevorzugt 
verwendeten Datenstruk¬ 
turen sind einfache und 
verkettete Bäume. Der 
Begriff des Datentyp im 
Sinne konventioneller 
Programmiersprachen exi¬ 
stiert in der logischen Pro¬ 
grammierung nicht. 
Verschiedene Prolog-Com¬ 
piler verlangen jedoch ei¬ 
ne Deklarierung von Va¬ 
riablen für die Compilie¬ 
rung des Quellcodes. 

Statt Datentypen werden 
in Prolog Domain-Typen 
verwendet: 

integer ganze Zahlen 

real reelle Zahlen 

char Zeichen 

string Zeichenkette 

symbol Symbol 

file Datei-Name. 


Integerzahlen liegen zwi¬ 
schen —32.768 und 
+32.767. 

Reelle Zahlen sind durch 
einen Dezimalpunkt ge¬ 
kennzeichnet, auch wenn 
keine Nachkommastellen 
auftreten. 

Größere Zahlen werden 
in exponentieller Schreib¬ 
weise dargestellt. Die 
Char-Variablen können 
einzelne Zeichen enthal¬ 
ten. Die Zeichen werden 
mit Hochkommas ge¬ 
schrieben. Zeichenketten 
(Strings) sind beliebige 
Zeichenkombinationen, 
auch sie werden durch 
Hochkommas abgegrenzt. 
Symbol-Variablen begin¬ 
nen mit Kleinbuchstaben 
oder sind Zeichenfolgen, 
die von Hochkommas ein¬ 
geschlossen sind. Symbol 
und String werden in 
Prolog unterschiedlich ver¬ 
arbeitet. 

File-Variablen ermögli¬ 
chen die Definition sym¬ 
bolischer Dateinamen, 
welche als Argumente in 
Prädikaten verwendet 
werden können. 

Jedes Programm darf aber 
nur einen Domaintyp ent¬ 
halten, der zur Gruppe 
„File“ gehört. 

In der Deklarierung kön¬ 
nen mehrere Objekte des 
gleichen Domain-Typs zu¬ 
sammengefaßt werden. In 
Prolog ist es möglich, für 
die Definition einer Do¬ 
main diese selbst zu ver¬ 
wenden. Dadurch entsteht 
ein rekursives Objekt. 
Standard-Domaintypem 
müssen nicht deklariert 
werden. 

Ein Prolog-Programm ist 
als Sammlung von Fakten 
und Regeln auch eine Da¬ 
tenbank. Durch Einfügun¬ 
gen und Löschungen wäh¬ 
rend der Ausführung ist 
sie dynamisch. 
Standard-Prolog erlaubt 
den Austausch von Fak¬ 
ten und Regeln. Manche 
Prolog-Dialekte wie Tur- 
bo-Prolog lassen nur den 
Austausch von Fakten zu. 
Die Anordnung von Fak¬ 
ten und Regeln, sowie der 
Datensätze ist in Prolog 
sehr wichtig für die Aus¬ 
führung des Programms. 

Je nach Anordnung kann 
ein Programm auf ver¬ 


schiedene Weisen interpre¬ 
tiert werden und es kann 
zu völlig unterschiedlichen 
Ergebnissen kommen. 

An dieser Stelle sollte 
vielleicht einmal etwas 
Grundsätzliches zu den so¬ 
genannten Kl-Sprachen 
gesagt werden. 

Wie schon erwähnt, han¬ 
delt es sich hier um dekla¬ 
rative Programmierspra¬ 
chen. Im Gegensatz zu 
den herkömmlichen Spra¬ 
chen wird nur ein Problem, 
nicht aber der komplette 
Lösungsweg beschrieben. 

In algorithmische Spra¬ 
chen wie Fortran, Cobol, 
BASIC, Pascal und andere 
müssen Lösungswege für 
alle möglichen Fälle bei 
der Programmierung defi¬ 
niert werden, was sehr auf¬ 
wendig sein kann und da¬ 
mit auch als Qualitätsmerk¬ 
mal eines Programms gilt. 
Logische oder deklarative 
Programmiersprachen er¬ 
lauben aber die Festlegung 
von Fakten (Facts) und 
Regeln (Rules), die für die 
eigentliche Lösung des 
Problems notwendig sind. 
Also nicht der Programmie- 
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rer löst das gestellte Pro¬ 
blem, sondern das Pro¬ 
gramm. Die Hauptarbeit 
des Programmierers be¬ 
steht darin, die „Facts“ 
und „Rules“ korrekt und 
vollständig zu formulie¬ 
ren. 

Bei Prolog ist das oben 
Gesagte leider nur zum 
Teil verwirklicht worden. 
Auch Prolog kann nicht 
ganz ohne explizite An¬ 
weisungen (Algorithmen) 
auskommen. Bei den 
konventionellen Program¬ 
miersprachen ist dieser 
Algorithmus das Pro¬ 
gramm selbst. Bei Prolog 
ist der benötigte Algo¬ 
rithmus inhärenter Be¬ 
standteil des Interpreters 
oder des Compilers. Aus 
diesem Grunde wurde 
schon mehrfach versucht, 
Prolog den deklarativen 
Charakter abzuerkennen. 
Sicher ist Prolog keine 
reine deklarative Pro¬ 
grammiersprache, son¬ 
dern eher eine Mischform, 
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wie viele höhere Program¬ 
miersprachen. 

Um einen Eindruck zu ge¬ 
winnen , wie ein Prolog- 
Programm aussieht , in 
Tabelle 19 ein Ausschnitt, 
geschrieben in Turbo- 

Es gibt viele Prolog-Imple¬ 
mentierungen, von denen 
sich die meisten an den 
De-Facto-Standard hal¬ 
ten. 

Prolog-Programme wer¬ 
den mit einem gewöhnli¬ 
chen Editor erstellt. Man¬ 
che Implementationen 
erlauben die Syntax- 
Überprüfung schon wäh¬ 
rend des Editierens. 

Zudem werden sogenann¬ 
te Software-Interfaces an- 
geboten, die Schnittstel¬ 
len zu anderen Program¬ 
miersprachen darstellen 
(etwa zu C). 

Grundsätzlich zu unter¬ 
scheiden ist zwischen Pro¬ 
log-Interpreter und Com¬ 
pilern. Vor- und Nachtei¬ 
le dieser Übersetzungsme¬ 
thoden wurden schon hin¬ 
reichend besprochen. Sie 
gelten für alle in Frage 
kommenden Programmier¬ 
sprachen. 

56. Prosa 

PROgrammiersprache mit 
Symbolischen Adressen. 
Prosa ist wie Autocode 
ein Vorläufer der heute 
gebräuchlichen Assembler¬ 
sprachen. Wie diese ist 
Prosa maschinenorientiert. 
Prosa findet heute kaum 
noch Anwendung. Ge¬ 
bräuchlich war Prosa zwi¬ 
schen 1966 und 1965. 

57. QBE 

uery By Example. 
rafische Datenbank-Ab¬ 
fragesprache, von IBM 
Ende der 70er Jahre im 
San Jose Research Labo- 
ratory entwickelt. 

QBE ist non-prozedural 
(siehe auch SQL). 

Im Gegensatz zu SQL ist 
QBE allerdings nur für 
große Rechenanlagen 
tauglich. 

58. QL 

Query Language. 
Abfragesprache (DL-Spra- 
che). 

Query Language hat eine 
sehr einfache Syntax und 


Struktur und ist daher 
leicht erlernbar. 

Sie wird hauptsächlich 
zur Handhabung (Abfra- 


gung) von Datenbanksy¬ 
stemen benutzt (siehe 
auch SQL). 

DL-Sprachen sind meist 
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nicht-prozedural. Der An¬ 
wender teilt dem System 
mit, wie das zu lösende 
Problem aussieht und 
nicht, wie es zu lösen ist. 

59. RPG 

Report-Programm- 
Generator, auch LPG 
(Listen-Programm- 
Generator). 

RPG und das heute ge¬ 
bräuchlichere RPG II, 
eine Weiterentwicklung, 
sind eigentlich keine ech¬ 
ten höheren Programmier¬ 
sprachen im eigentlichen 
Sinne, sondern, wie der 
Name schon sagt, Pro¬ 
gramm-Generatoren, al¬ 
so Systeme, die von Da¬ 
teien eingelesene Daten- 

AUSWERTUNG VON 
DATENSÄTZEN 

sätze nach vorherbestimm¬ 
ten, gleichartigen Umfor¬ 
mungen bearbeiten und 
meistens in Form einer 
Liste (daher LPG) ausge¬ 
ben. RPG findet deshalb 
hauptsächlich in der kom¬ 
merziellen Datenverarbei¬ 
tung Anwendung, wo 
solche Probleme überwie¬ 
gend auftreten. 

Man spricht bei RPG von 
einer parametrischen Pro¬ 
grammierung, da alle An¬ 
weisungen und Angaben 
in Form von Parametern 
beschrieben werden. Mit 
Hilfe dieser Parameter 
wird das Programm dann 
erstellt. 

Erst die Entwicklung von 
RPG II konnte eine voll¬ 
ständige, gute und umfas¬ 
sende Bearbeitung aller, 
im kommerziellen Be¬ 
reich auftretenden Pro¬ 
bleme bewältigen. Den¬ 
noch kann RPG nicht zu 
den problemorientierten 
Programmiersprachen ge¬ 
zählt werden, obwohl ei¬ 
nige Softwarehäuser dies 
gerne sähen. RPG enthält 
keine frei kombinierba¬ 
ren Befehle. Und dies ist 
nun einmal eines der Kri¬ 
terien für eine problem¬ 
orientierte Programmier¬ 
sprache. 

RPG wurde ursprünglich 
von IBM entwickelt und 
von verschiedenen ande¬ 
ren Softwareherstellern 
weiterentwickelt. RPG II 
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wird meist in die Stan- 
dard-Sprachumgebung des 
Rechners eingegliedert. 
Programme in RPG II 
können Module in ande¬ 
ren Sprachen aufrufen 
sowie diverse Laufzeit- 
Bibliotheksprogramme . 
Andererseits werden die . 
Ergebnisse der RPG II- 
Programme (Listen) so 
ausgegeben, daß sie ohne 
weiteres auch von ande¬ 
ren Programmen in an¬ 
deren Sprachen weiterver¬ 
arbeitet werden können. 

60. RPNL 

Reverse Polish 
Notation Language. 

RPNL ist eine höhere Pro¬ 
grammiersprache, die so¬ 
wohl mit Pascal als auch 
mit Forth große Ähnlich¬ 
keiten aufweist. Der er¬ 
ste Unterschied zu ande¬ 
ren Programmiersprachen 
ist die Verarbeitung der 
„Umgekehrten Polni¬ 
schen Notation“ (UPN) 
bei den Operationen (sie¬ 
he hierzu auch EOL). 
RPNL unterstützt die 
strukturierte Programmie¬ 
rung und läßt hohe Aus¬ 
führungsgeschwindigkei¬ 
ten zu. RPNL ist compi¬ 
lerorientiert, obwohl das 
vom Compiler erzeugte 
Objektprogramm noch 
keinen direkten Maschi¬ 
nencode darstellt. Man 
spricht hierbei von einem 
„Zwischencode“. Dieser 
Zwischencode besteht aus 
einer Zusammenstellung 
von Bibliotheksprogramm- 
Aufrufen, die allerdings 
sehr maschinennah sind, 
was sich positiv auf die 
Ausführungsgeschwindig¬ 
keit auswirkt. 

In RPNL werden grund¬ 
sätzlich nur zwei Daten¬ 
typen unterschieden: 

■ Numerische Daten: 
INTEGER-TYP 

(bis zur Größe 2 hoch 
16-1), 

BOOLEAN-TYP 
(True, False), 
ARRAY-TYP 
(Zusammenfassung ver¬ 
schiedener oder gleicher 
Typen). 

■ Alphanumerische 
Daten: 

STRING 

(maximal 255 Zeichen 
lang). 


Alle in einem RPNL-Pro- 
gramm verwendeten Va¬ 
riablen oder Konstanten 
müssen am Programman¬ 
fang definiert werden. 
Folgende Namen dürfen 
nicht als Variablen oder 
Konstanten benannt wer¬ 
den, da sie bereits verge¬ 
ben sind: 

■U,K 

als Laufindizes in Schlei¬ 
fen, 

■ TRUE, FALSE 
als logische Werte für 
„wahr“ oder „falsch“. 


und Feldname deklariert, 
andererseits Speicher¬ 
platz zugewiesen und be¬ 
legt: normalerweise für 
jede Größe 16 Bit, oder 
für die Größe des Feldes 
(Anzahl) * 16 Bit. 

3. Anweisungsliste 
Die Anweisungsliste ent¬ 
hält die Algorithmen, 
welche den Lösungsweg 
des Problems beschrei¬ 
ben. 

Man unterscheidet bei 
RPNL drei verschiedene 
Anweisungstypen: 


Tabelle 20: 

Wahrheitstabeile 

der Boolschen Operatoren (Prädikate) 


Operand 1 

Prädikat 

Operand 2 

Ergebnis 

TRUE 

ROT 

- 

FALSE 

FALSE 

NOT 

- 

TRUE 

TRUE 

AND 

TRUE 

TRUE 

TRUE 

AND 

FALSE 

FALSE 

FALSE 

AND 

TRUE 

FALSE 

FALSE 

AND 

FALSE 

FALSE 

TRUE 

OR 

TRUE 

TRUE 

TRUE 

OR 

FALSE 

TRUE 

FALSE 

OR 

TRUE 

TRUE 

FALSE 

OR 

FALSE 

FALSE 

l_ 1 


Der Programmaufbau ei¬ 
nes RPNL-Programmes ist 
grundsätzlich in drei Teile 
gegliedert: 

1. Programmklammer 
mit Namen 

Die erste Zeile eines 
RPNL-Programmes ent¬ 
hält immer die Anwei¬ 
sung: 

PROGRAMM Programm¬ 
name 

In der letzten . 

Zeile steht 
immer END 

2. Deklarationsliste 
Beispielsweise VAR für 
Variablenname, 

CONST für Konstanten¬ 
name, 

Anzahl ARRAY 
Feldname. 

Hier wird einerseits der 
Variablen/Konstanten- 


a) einfache Anweisun¬ 
gen, 

b) E/A-Anweisungen für 
die Ein- und Ausgabe, 

c) Steueranweisungen für 
Datenfluß und Ausfüh¬ 
rungssteuerung. 

Einfache Anweisungen 
können aus einstelligen 
oder zweistelligen Opera¬ 
toren bestehen. Einstel¬ 
lige Operatoren bearbei¬ 
ten einen Operanden, 
zweistellige Operatoren 
benötigen zwei Operan¬ 
den. 

Einstellige Operatoren: 
INC bildet das Inkre¬ 
ment des ange¬ 
gebenen Operan¬ 
den (^Erhöhung 
um 1), 

DEC das Dekrement 

wird gebildet (Ver- 
ringerumg um 1), 
NOT logische Vernei¬ 
nung (Negation), 


DUP Duplizierung eines 
Wertes (Kopie), 

? Abruf eines Spei¬ 
cherplatzes, einer 
Variablen oder 
Konstanten. 

Zweistellige Operatoren: 

+ Addition, 

Subtraktion, 

DIV Division (nur ganz¬ 
zahlig), der Rest 
ist verloren, 

* Multiplikation, 
MOD Division zweier 
Operanden, wel¬ 
che nur den er- 
rechneten Rest 
anzeigt (Modulo 
Division), 

SWAP Vertauschung 

von zwei Operan¬ 
den, 

AND Logisches UND 
(KonjunktionL 
OR Logisches ODER 
(Disjunktion). 

Zur „Wahrheitstabelle der 
Booleschen Operatoren“ 
siehe Tabelle 20. 


Außerdem stehen noch 
die logischen Vergleichs¬ 
operatoren gleich/größer/ 
kleiner und deren Kom¬ 
bination zur Verfügung. 

Sie liefern für Integer- 
Operanden logische Wahr¬ 
heitswerte als Ergebnis. 

Ein- und Ausgabeanwei¬ 
sungen und RPNL- 
Prozeduren: 

CR Carriage Return 
(Zeilenvorschub) 
WRITE Ausgabe von 
Text (in Hoch¬ 
kommas), 

PRINT Ausgabe einer 
Integerzahl, 

PRINT(S) Ausgabe eines 
Strings, 

READ liest eine Inte¬ 
gerzahl ein, 
READ(S) Gest einen 
String ein, 

STRING weist einem 

Text Speicher- . 
platz zu. 


Bedingungen und 

Schleifen 

IF-THEN-ELSE 

Vor dem Schlüsselwort 

IF steht ein Ausdruck, der 

die Bedingung darstellt 

(ein logischer Wert), da- 
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hinter die Anweisungsliste, 
die nur dann ausgeführt 
wird, wenn die Bedin¬ 
gung erfüllt ist (TRUE). 
Die Anweisungsliste hin¬ 
ter ELSE wird genau 
dann ausgeführt, wenn 
die Bedingung vor dem 
IF nicht erfüllt ist 
(FALSE). 

REPEAT UNTIL LOOP 
Hinter REPEAT folgt 
die Anweisungsliste, de¬ 
ren Anweisungen wieder¬ 
holt werden sollen. 
Abgeschlossen wird die 
Schleife durch das Schlüs¬ 
selwort LOOP. An einer 
geeigneten Stelle zwi¬ 
schen REPEAT und 
LOOP steht UNTIL, 
dem direkt ein Ausdruck 
(logischer Wert) voran¬ 
geht. 

Abhängig von dem aktuel¬ 
len Wert des Ausdruckes 
erfolgt die Fortsetzung 
des Programms mit der 
ersten Anweisung hinter 
UNTIL (bei FALSE) 
oder hinter LOOP (bei 
TRUE) und damit wird 
aus der Schleife heraus¬ 
gesprungen. 

FOR LOOP 

Vor dem Schlüsselwort 
FOR müssen zwei Ope¬ 
randen angegeben wer¬ 
den, die den Endwert 
und den Startwert der 
Laufvariablen festlegen. 
Zwischen FOR und 
LOOP steht die Anwei¬ 
sungsliste. Es können drei 
Schleifen ineinander ver¬ 
schachtelt werden. Die 
Variable I ist immer für 
die innere Schleife reser¬ 
viert, J für die mittlere 
und K für die äußere. 

Bei nur einer Schleife 
oder einer Verschachte¬ 
lung von zwei Schleifen 
gilt das oben Gesagte ana¬ 
log. 

(Programmbeispiel siehe 
Tabelle 21.) 

61. SIMULA 

SIMULA ist mehr ein 
System als eine Sprache. 
Mit Hilfe des SIMULA- 
Systems lassen sich bei¬ 
spielsweise rechnerinter¬ 
ne Abläufe anhand von 
Modellen untersuchen. 

So wurden umfangreiche 
Untersuchungen von Be¬ 


triebssystemen mit Hilfe 
von SIMULA durchge¬ 
führt. 

SIMULA gibt es seit et¬ 
wa 1965. 

Der Vorteil gegenüber an¬ 
deren Programmierspra¬ 
chen liegt in der Struktur 
des Systems, welches sich 
besonders zu Simulations¬ 
zwecken eignet (daher 
der Name SIMULA). 

Es gibt verschiedene SI- 
MULA-Systems, auf die 
aber wegen ihrer Spezia¬ 
lisierung liier nicht ein¬ 
gegangen werden kann. 


Paolo Alto Research 
Center“ entwickelt, ist 
Smalltalk zugleich Pro¬ 
grammiersprache und Re¬ 
chensystem. Großen Wert 
bei der Ausstattung die¬ 
ses Systems wurde auf 
grafische Interaktionsme¬ 
chanismen wie Windows 
gelegt. Menü- und 
Maustechniken werden 
ebenfalls unterstützt. In 
Smalltalk konnte also 
schon das realisiert wer¬ 
den, was später von Be¬ 
triebssystemen (grafi¬ 
schen Benutzeroberflä¬ 


übernommen wurde. Die 
Klassen dienen den Wahr¬ 
scheinlichkeitsverteilun¬ 
gen und ereignisgetriebe¬ 
nen Simulationen. 
Smalltalk ist, wie schon 
erwähnt, nicht nur eine 
Sprache, sondern gleich¬ 
zeitig ein System. Das 
System ist seinerseits in 
Smalltalk geschrieben 
und basiert auf einer vir¬ 
tuellen Maschine. Das 
System ist dem Benut¬ 
zer zugänglich und er¬ 
möglicht so Eingriffe. 

Für alle Anwenderpro¬ 
gramme wird ein einheit¬ 
licher Mechanismus für 
die Realisierung der in¬ 
teraktiven Schnittstelle 
zur Verfügung gestellt — 
ein ähnliches-Vorgehen 
wie bei den Betriebssy¬ 
stemen mit grafischer Be¬ 
nutzeroberfläche. Dieser 
Mechanismus besteht aus 
den Bestandteilen Mo¬ 
del, View und Controller. 
Das Modell wird von den 
Daten und Informatio¬ 
nen gebildet. Die View 
beschreibt die Darstel¬ 
lungen und der Controller 
übernimmt die Steuerung, 
also er beschreibt, wel¬ 
che Auswirkungen Ereig¬ 
nisse (etwa Benutzerein¬ 
gaben) auf das System 
haben. 


SPRACHE 
UND SYSTEM 


Smalltalk ist objektorien¬ 
tiert. Jede Komponente 
von diesem System ist 
ein Objekt. Die Program¬ 
me in Smalltalk beschrei¬ 
ben lediglich die Kommu¬ 
nikation dieser Objekte 
untereinander und natür¬ 
lich die Objekte selbst. 

Die Programmierung in 
Smalltalk besteht daher 
im Wesentlichen aus der 
Neubildung von Objek¬ 
ten und dem „Senden 
von Botschaften“ zwi¬ 
schen diesen. 

Die Objekte in Small¬ 
talk 80 sind sehr abstrakt 
und haben kaum noch et¬ 
was mit den technischen 
Eigenschaften der Hard¬ 
ware des Rechners zu 
tun oder den klassischen 
Objekten in der Software, 
also Zahlen oder Zeichen. 
Smalltalk gibt es für ver- 


TabelTfe PI: 


Prügradßheispiel za RPNL 
tisting 


PRG8RAHH BEISPIEL 
5 ARRAY LISTE 
VAR ZAHL 
4 8 FOR 
REPEAT 

»RITE “EINGABE“ CR 
ZAHL READ 

ZAHL ? I 2 * LISTE + : = 
ZAHL ? 180 (= UNTIL 
ZAHL PRINT 
WRfTE "ZU GROSS" CR 
LOOP 
LOOP 
END 


62. SIL 3 

System Implementation 
Language 3. 
Maschinenunabhängige 
System-Implementierungs¬ 
sprache (SIL). 

Sie dient zur Software- 
Herstellung und zeichnet 
sich in erster Linie durch 
ihre Codeeffizienz aus. 

Die Programmierung von 
SIL ist recht kompliziert, 
nicht zuletzt durch die 
fehlende Problemnähe 
und die speziellen Anfor¬ 
derungen an der Anwen¬ 
dersoftware. 

63. Smalltalk 80 

Smalltalk wurde Anfang 
der siebziger Jahre ent¬ 
worfen, 1980 fertigge¬ 
stellt (daher Smalltalk 
80) und 1981 zum ersten 
Mal der Öffentlichkeit 
vorgestellt. Im „Xerox 


chen) wie GEM oder an¬ 
deren übernommen wur¬ 
de. 

Das Ausgabemedium für 
Smalltalk ist immer ein 
Bitmap-Display, da jede 
Ausgabe grundsätzlich 
grafisch erfolgt. Dies ge¬ 
schieht mit Hilfe soge¬ 
nannter „Forms“. Cursor, 
Bildfläche und auch 
Schriftarten werden alle 
als Forms ge handhabt. 
Smalltalk enthält zwei 
Editoren zur Verände¬ 
rung der Forms. 

Auch echte Grafik ist in 
Smalltalk möglich: Linien¬ 
grafik und Splines, Krei¬ 
se sowie andere geometri¬ 
sche Figuren. 

Zur Simulation gibt es 
in Smalltalk das soge¬ 
nannte Klassenkonzept, 
welches von der Program¬ 
miersprache SIMULA 


27 





■ SERIE 


schiedene Rechnersyste¬ 
me, in der Regel sind dies 
aber keine Microcompu- 
ter. Lediglich für den 
Macintosh von Apple gibt 
es eine Implementation. 


64. SQL 

Structured Query 
Language. 

Strukturierte Abfrage¬ 
sprache, vorwiegend für 
Datenbanken entwickelt 
von IBM im San Jose 
Research Laboratory. 

SQL ist seit Ende der 70er 
Jahre auf dem Markt und 
wurde seitdem in ver¬ 
schiedensten Datenbank¬ 
systemen installiert. Be¬ 
kanntestes Beispiel ist 
die relationale Datenbank 
ORACLE (1979). 

SQL ist non-prozedural, 
also muß nicht der Lö¬ 
sungsweg vom Program¬ 
mierer beschrieben wer¬ 
den, sondern nur das Pro¬ 
blem selbst, das Programm 
sucht nach Lösungen. 
Datenstrukturen können 
in Form von Tabellen dy¬ 
namisch definiert und ma¬ 
nipuliert werden. Diese 
Möglichkeiten stehen dem 
Benutzer über ein speziel¬ 
les Interface mit dem be¬ 
zeichnenden Namen UFI 
= User Friendly Interface 


zur Verfügung, welches 
die Datenmanipulation im 
Dialogbetrieb zuläßt. 

SQL besitzt erstaunliche 
Abfragemöglichkeiten, die 
jedoch je nach gewünsch¬ 
ter Abfrage Zeit kosten 
können. 

SQL bietet hierfür die 
Möglichkeit, Indizes zur 
Retrieval-Beschleunigung 
zu definieren. Die Index¬ 
definition kann auch da¬ 
zu benutzt werden, um ei¬ 
ne von SQL nicht abge¬ 
deckte, jedoch gewünsch¬ 
te Leistung sicherzustel¬ 
len. 

Neben SQL hat sich — 
ebenfalls von IBM entwik- 
kelt — eine weitere Ab¬ 
frage-Sprache etabliert: 
QBE (Query By Example) 
- mehr ein grafisches Ab- 
fragesystem. QBE. auch 
als Ergänzung zu SQL, ist 
nur auf mittleren und gro¬ 
ßen Rechenanlagen ein¬ 
satzfähig. 

Für Mini- und Microcom- 
puter (so VAX von DEC 
und IBM, PC, XT. AT) 
gibt es SQL ebenfalls in 
Verbindung mit der Da¬ 
tenbank ORACLE. 


65. SYMAP 

Eigenentwicklung der 
DDR, aufgebaut aus ver¬ 


schiedenen Elementen 
von Fortran und Exapt. 

66. V.l.P. 

Visuelle Interaktive 
Programmiersprache. 
Programme in V.l.P. wer¬ 
den über Flußdiagramme 
eingegeben. V.l.P. ist auf 
den Apple-Macintosh zu¬ 
geschnitten und erlaubt 
Zugriffe auf die Macin- 
tosh-Toolbox. V.l.P. ver¬ 
fügt über einen visuellen 
Debugger und einen sehr 
schnellen Interpreter. Es 
gibt auch Transferpro¬ 
gramme, die den V.I.P.- 
Code in LS-Pascal über¬ 
setzen. 

67. PL/PC 

Programming Language 
for Personal Computers. 
PL/PC ist eine relativ 
neue Universal-Program- 
miersprache, speziell ge¬ 
schaffen zum Einsatz auf 
PCs unter MS-DOS. 

Wie BASIC ist PL/PC in¬ 
teraktiv, hat aber diesem 
gegenüber den Vorteil, 
strukturiert zu sein (wie 
MODULA-2). 

Auch von APL sind Ele¬ 
mente bei der Schaffung 
dieser neuen Program¬ 
miersprache übernommen 
worden; so zum Beispiel 
die mächtigen Datenstruk¬ 


turen und Manipulations¬ 
funktionen. 

Zum Sprachumfang gehö¬ 
ren Editoren für Daten¬ 
strukturen, die wie ein 
Spread sheet aufgebaut 
sind, und Text zur Dekla¬ 
ration von Subroutinen, 
Compiler für selbst defi¬ 
nierte Subroutinen, Inter¬ 
preter, Debugger, Grafik¬ 
unterstützung für alle be¬ 
kannten Bildschirme ein¬ 
schließlich Turtle-Grafik. 
Für rechenintensive An¬ 
wendungen existiert eine 
Spezialversion, welche 
die Coprozessoren 8087 
und 80287 unterstützt. 
Variable können ihren 
Typ (Boolean, Byte, 
Integer, Long [32 Bit], 
Real und Complex, String, 
Charakter) dynamisch 
ändern. 

Die meisten mathemati¬ 
schen Funktionen sind 
eingebaut. 

PL/PC ist leicht lernbar 
und daher auch für An¬ 
fänger geeignet, hat aber 
gegenüber BASIC gewis¬ 
se Vorteile. 

Am Ende dieses Beitrages 
können wir nur hoffen, et¬ 
was Klarheit in dieses 
Sprachengewirr gebracht 
zu haben. 

Ende der Serie 

Oliver Rosenbaum □ 
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SERIELL UNGLEICH 
SERIELL 


Wie aus einigen Artikeln 
von Ihnen über Drucker in 
der C-WELT hervorgeht, 
sind Sie wohl einer der 
besten C-l 6-Drucker- 
Fachmänner, die es gibt. 
Daher bin ich voller Hoff¬ 
nung, daß Sie mir bei mei¬ 
nem Problem weiterhel¬ 
fen können. Ich besitze 
einen IBM-Drucker, den 
ich bisher erfolglos an 
meinen CI6 anzuschlie¬ 
ßen versuchte. Er hat ge¬ 
nau wie der CI 6 eine se¬ 
rielle Schnittstelle und 
sollte eigentlich ohne In¬ 
terface anzuschließen sein. 
Allerdings komme ich mit 
der Steckerbelegung nicht 
ganz klar. Am Druckeraus¬ 
gang sind nämlich nur drei 
verschiedenfarbene Kabel. 
Am Stecker sind noch zu¬ 
sätzlich zwei Kabel, die 
untereinander im Stecker 
je zwei Pins miteinander 
verbinden. 

Daraus schließe ich, daß 
beim seriellen Port des 
CI 6 auch Pins miteinan¬ 
der verbunden werden 
müssen. Leider weiß ich 
nicht, welche. Da mir an 
meinem Rechner sehr viel 
liegt, möchte ich nicht al¬ 
le Möglichkeiten auspro¬ 
bieren. Ich habe auch 
nicht die Gelegenheit, ir¬ 
gendwo so einen Stecker 
auseinander zu nehmen, 
um nachzuschauen. Da¬ 
her wende ich mich hoff¬ 
nungsvoll an Sie. 

Peter Ochs, 

Biedenkopf 

Die seriellen Schnittstel¬ 
len, die Sie in Ihrem Brief 
ansprechen, lassen sich, 
obwohl sie die gleiche Be¬ 
zeichnung tragen, leider 
nicht miteinander verglei¬ 
chen. Die serielle Schnitt¬ 
stelle Ihres Rechners ent¬ 
spricht nicht der allgemei¬ 
nen Norm und ist nur ei¬ 
ne Abwandlung des IEC- 
Bus 625, wie er in der 
Industrie eine Einigung 
erzielte. Commodore hat 
diesen Bus abgemagert 
und ihn in die Home- 
Computer VC20 bis 
PCI 28 eingebaut. Die 
Schnittstelle Ihres Druk- 


kers aber entspricht der 
RS-232-Norm, wie sie bei 
den PCs Einzug fand. 

Wie Sie sehen, handelt es 
sich damit um zwei grund¬ 
verschiedene Ausführun¬ 
gen von Schnittstellen, bei 
denen außer den mecha¬ 
nischen Anschlüssen auch 
noch die elektrischen Wer¬ 
te nicht übereinstimmen. 
Sie benötigen für Ihren 
Drucker ein serielles Inter¬ 
face. Leider gibt es auch 
hierbei immer Probleme, 
weil oft die Leitung umzu¬ 
löten sind und das Hand- 
shaking sich von Drucker 
zu Drucker unterscheiden 
kann. Wenden Sie sich am 
besten an eine Firma, die 
Interfaces herstellt und 
Ihnen somit weiterhelfen 
kann. Einen Katalog mit 
Interfaces können Sie ko¬ 
stenlos beziehen bei: 
Wiesemann & Theiss 
GmbH 

Abteilung: CW 
Winchenbachstraße 3-5, 
D-5600 Wuppertal 2 


FALSCHE PIN¬ 
BELEGUNG AM 
CENTRON IC-INTER¬ 
FACE 


Am liebsten hätte ich 
laut Hurra“ geschrien, 
als ich Ihren Artikel las, 
denn ich bin seit zwei 
Wochen stolzer(?) Besit¬ 
zer eines Druckers „Star 
LC-10 multi-font“. 
Abgesehen davon, daß 
man mich beim Kauf re¬ 
gelrecht „abgelinkt“ hat 
— es wurde mir auf aus¬ 
drückliches Befragen zu¬ 
gesichert, der Drucker 
würde am Plus4 laufen, 
auf meine Reklamation 
wollte man davon natür¬ 
lich nichts mehr wissen —, 
habe ich mir die Hacken 
abgelaufen nach einem 
der von Ihnen genannten 
Interfaces. Aber es gibt 
keines! Angeblich sei der 
Drucker noch so neu, daß 
es noch keines gäbe. Ich 
habe aber eher den Ein¬ 
druck, als ob man sich 
in den Computerläden 
nicht so besonders für 
Kundennöte interessieren 
würde. 

Um so erfreuter war ich, 
Ihren Artikel zu finden. 


Also ab ins Elektronik- 
Geschäft, die Bauteile ge¬ 
kauft und ein Wochen¬ 
ende gelötet. Dann das 
Programm (dank Check¬ 
summer ein Klacks) einge¬ 
geben, alles miteinander 

verbunden und. 

nichts! 

Der Drucker machte kei¬ 
nen Mucks, ganz abge¬ 
sehen davon, daß es mir 
nicht einmal gelingt, Da¬ 
ten an ihn zu senden. 

Ich gehe folgendermaßen 
vor: Programm „Centro¬ 
nics“ laden — Run. Der 
Plus4 meldet „Ready“. 
Danach öffne ich den 
Druckerkanal mit 
„open,4“, wiederum 
meldet sich der Compu¬ 
ter mit „Ready“. Wenn 
ich jetzt cmdl eingebe, 
verschwindet der Cursor 
auf Nimmerwiedersehen 
und läßt sich auch nicht 
mehr hervorzaubern. Der 
Rechner spricht auf kei¬ 
ne Taste mehr an, auch 
nicht auf „Help“. Es 
bleibt in diesem Fall nur 
noch ein „Reset“, um 
den ganzen Tanz von vor¬ 
ne zu beginnen. Aber 
drucken, das will er 
nicht. 

Für mich als Laien gibt 
es nur zwei Erklärun¬ 
gen: Entweder Ihr Arti¬ 
kel stimmt doch nicht 
ganz (er müßte dann 
heißen „... mit jedem 
Drucker außer dem LC- 
10), oder aber der Feh¬ 
ler liegt bei mir. Dann 
kann es aber nur mein 
Interface sein. Aber ich 
bin der Meinung, alles 
richtig gemacht zu ha¬ 
ben und außerdem habe 
ich es mehrfach durch¬ 
gemessen. 

Können Sie mir in irgend¬ 
einer Weise helfen? Ich 
lege Ihnen einen Beleg¬ 
plan des Centronics- 
Eingangs meines Druk- 
kers bei, eventuell nützt 
Ihnen der etwas. 

In diesem Zusammen¬ 
hang noch eine Frage: 

In der Abbildung des 
Centronics-Steckers in 
Ihrem Artikel finden 
sich auf pin 19 ff insge¬ 
samt 12 Leitungen, die 
jedoch in Ihrem Text in 
keiner Weise genannt 
sind. Deshalb habe ich 


sie auch nicht angelötet, 
ganz zu schweigen davon, 
daß ich gar nicht wüßte, 
wohin mit dem anderen 
Ende. Ist das der Fehler? 
Rolf-Peter Schulz, 

Stuttgart 

In der Interface-Beschrei¬ 
bung war ein Fehler ent¬ 
halten. Die Strobe-Lei¬ 
tung liegt am Centronics- 
Port auf Pin eins und die 
Busv-Leitung auf Pin elf 
In dem Artikel,,Drucken 
mit jedem Modell“ stand 
infolge einer Verwechs¬ 
lung das Gegenteil zu le¬ 
sen. Demnach sind im 
Heft CI 6 /P4-SPE CI AL 
auf Seite 10 in der rech¬ 
ten unteren Ecke der 
,,Anschlußtabelle“ die bei¬ 
den untereinanderstehen¬ 
den Zahlen eins und elf 
auszutauschen. Wenn Sie 
entweder am Interface 
oder am Centroncs-Stek- 
ker die beiden Leitungen 
umlöten, so müßte der 
Ausdruck funktionieren. 
Übrigens können Sie auch 
einen deutschen Zeichen¬ 
satz mit Ihrem Drucker 
realisieren. Allerdings ist 
hierzu das in der COM- 
MODORE-WELTNr. I2j 
87 beschriebene Centro- 
nics-Kabel vonnöten, das 
am Userport des Plus4 an¬ 
geschlossen wird. 

Mehrere Leitungen ab 
Pin 19 wurden früher aus 
Störungsgründen an Ge¬ 
häusemasse gelegt. Bei 
den heutigen Kabeln ist es 
besser, dies nicht zu tun. 
Daher sind die Pins 19 
bis 30 nicht anzuschließen. 
Das gleiche gilt ebenso 
für Pin 17. 


DEUTSCHE ZEICHEN 
FÜR MPS 801 
UND MPS 803 


In der Nr. 1 dieses Jahr¬ 
gangs habe ich Ihr Zeichen 
satz-Programm auf Seite 
22 bis 31 mit Begeiste¬ 
rung zur Kenntnis ge¬ 
nommen und als Plus4- 
Besitzer natürlich sofort 
abgetippt, angepaßt an 
Drucker und Plus4-Soft- 
ware und in Betrieb ge¬ 
nommen. 

Dabei habe ich auf dem 
Bildschirm und auf dem 
Drucker Commodore 
MPS 803 die großen und 
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kleinen Umlaute, den Pa¬ 
ragraphen und das ,,ss“. 

Es tritt nur folgende 
merkwürdige Erscheinung 
auf, die ich trotz umfang¬ 
reicher Bemühungen 
nicht abstellen konnte: 
Alle Anfangsbuchstaben 
und im Text großge¬ 
schriebenen Buchstaben 
werden klein ausgedruckt 
und alle klein eingegebe¬ 
nen Buchstaben werden 
als Großbuchstaben aus¬ 
gedruckt. Ich konnte bis¬ 
her keine Änderung her¬ 
beiführen. 

Damit die wesentlichen 
Parameter überprüft wer¬ 
den können, falls Sie das 
Problem interessiert, füge 
ich einen Ausdruck des 
Druckeranpassungs-Li- 
stings bei. Wenn Sie mir 
helfen könnten, wäre ich 
Ihnen sehr verbunden. 

Im übrigen darf ich Sie zu 
Ihrer schönen Zeitschrift 
C16-Plus4 SPEZIAL be¬ 
glückwünschen, die ich 
mir stets besorge und die 
mir schon sehr viel Freu¬ 
de bereitet hat. 

Herbert Fiedler 
Marktheidenfeld 

Wie ich sehe, ist Ihnen die 
Zeich ensa tz-A n passu ng 
bis auf eine winzige Klei¬ 
nigkeit gelungen. In Zeile 
240 der Druckeranpas¬ 
sung ist ein c für Commo- 
dore-Drucker einzutragen. 
Wir hatten fälschlicherwei¬ 
se angenommen, der MPS- 
801 würde auch eine dop¬ 
pelte Grafikdichte besit¬ 
zen. Sie haben aber be¬ 
reits den passenden Zei¬ 
chensatz selbst entwik- 
kelt. Den Code zwei, der 
zum Umschalten in die 
doppelte Grafikdichte 
vorgesehen war und in 
den Code-Sequenzen 
gleich auf die anfängli¬ 
che Acht folgt, können 
Sie weglassen. Beim MPS- 
801 trat nach einem um¬ 
definierten Druckerzei¬ 
chen vor einem Return 
das Phänomen auf, daß 
der Zeilenabständ an die¬ 
ser Stelle nicht mehr rich¬ 
tig stimmte. Sie können 
dieses Problem durch eine 
kleine Änderung beseiti¬ 
gen: 

650 DATA 0,13-1 
Außerdem würde uns sehr 


interessieren, wie Sie un¬ 
sere Drucker-Codes für 
den MPS-801 und MPS- 
803 finden: 

550 data 8,160,213,212, 

189.192.128.15, -1 
:rem “ ae “ 

560 data 8,185,196,196, 

185.128.128.15, -1 
:rem “oe “ 

570 data 8,189,192,192, 

189.192.128.15, -1 
:rem “ue“ 

580 data 8,248,134,137, 

215.224.128.15, -1 

rem “ss“ 

590 data 8,241,172,162, 

172.241.128.15, -1 
:rem “Ae“ 

600 data 8,184,197,196, 

197.184.128.15, -1 
:rem “Oe“ 

610 data 8,188,193,192, 

193.188.128.15, -1 
:rem “Ue“ 

640 data 8,138,213,213, 

213.168.128.15, -1 
:rem paragraph 


SPEICHERN MIT 
DEUTSCHEM ZEICHEN¬ 
SATZ UND 
PLUS4-SOFTWARE 


Ich habe mich über Ihr 
Antwortschreiben zu mei¬ 
nen Problemen hinsicht¬ 
lich des deutschen Zei¬ 
chensatzes auf dem Plus4 
sehr gefreut, zumal ich 
nunmehr tatsächlich die 
Plus4-Software mit deut¬ 
schem Zeichensatz be¬ 
nützen kann. Auch das 
Ausdrucken mit dem 
MPS 803 ist nunmehr 
problemlos möglich. 

Ein kleines Problem habe 
ich allerdings noch. Nach 
dem Text in CI 6-PLUST¬ 
SPEZIAL Nr. 1, Jahrgang 
1988, war ich der Mei¬ 
nung, daß mit dem durch 
ZSKÖMP erstellten neu¬ 
en Programm aus Screen/ 
Keyboard und Druckeran¬ 
passung Texte erstellt, ab¬ 
geändert, abgespeichert, 
geladen und ausgedruckt 
werden können. 

Ich kann Texte erstellen, 
abändern, laden und spei¬ 
chern mit dem Teilpro¬ 
gramm Screen/Keyboard. 
Mit dem mit ZSKOMP er¬ 
stellten neuen Programm 
kann ich lediglich Texte 
laden und drucken. Wenn 
ich liier ein geladenes Pro¬ 


gramm abändere, kann ich 
dieses wohl ändern, aber 
nicht abspeichem. 

Versuche ich das, erscheint 
auf dem Bildschirm ledig¬ 
lich ein Zeichensalat. Auf 
der Diskette ist dann 
wohl der Filename vor¬ 
handen, unter dem ich 
den Text abspeichern 
wollte. Aber offensicht¬ 
lich wird der eigentliche 
Text nicht abgespeichert. 
Auf der Diskette ist dann 
auch jeweils nur ein Block 
durch den Filenamen be¬ 
legt. 

Will ich den Text ausdruk- 
ken, muß ich das mit 
ZSKOMP erstellte Pro¬ 
gramm laden und starten. 
Dann kann ich den Text 
laden und ausdrucken. 

Ich kann dann wohl auch 
noch den Text ändern, 
ihn aber mit diesem Pro¬ 
gramm nicht abspeichern. 
Er wäre dann verloren. 

Ihre Drucker-Codes für ä, 
ö, ü, ß, Ä, Ö, Ü, § finde 
ich in Ordnung. Dieser 
Text ist bereits mit ihnen 
erstellt. Besonders interes¬ 
sant finde ich das ß. Viel¬ 
leicht sollte man das ö 
etwas größer gestalten, 
wie etwa in den Ihnen 
mitgeteilten Codes. 

Herbert Fiedler 
Marktheidenfeld 

Wenn Sie eine zusätzliche 
Zeile in die DRUCKER¬ 
ANPASSUNG einfügen, 
so sollte das Speichern 
mit der Plus4-Software 
möglich sein: 


1955 POKEAR+19,168 
:POKEAR+20,255 

In der Tabellenkalkula¬ 
tion treten beim kompri¬ 
mierten Zeichensatz Pro¬ 
bleme auf Diese können 
Sie jedoch beseitigen, 
wenn Sie im Komprimie¬ 
rungs-Programm in Zeile 
555 den an dritter Stelle 
stehenden DATA-Wert 
128 durch die Zahl 156 
ersetzen. 

Das ö könnte etwas grö¬ 
ßer gestaltet werden. 

Ein Vorschlag ist, die 
Codes vom großen Ö für 
das kleine herzunehmen. 
Für das große Ö könnte 
man versuchen: 


600 DATA 8,189,194, 
194,194,189,128, 
15,-1 


VC20-TASTATUR FÜR 
C116 MIT 61 KBYTE 


Angeregt durch „Weg mit 
Gummitasten...“, Son¬ 
derheft COMMODORE 
WELT 1/87, Seiten 124 
ff, habe ich an meinen 
CI 1 6 eine VC-20-Tasta- 
tur angeschlossen. 

Fast alles funktioniert — 
mit einigen unwesentli¬ 
chen Verschiebungen v/ie 
zum Beispiel CLEAR/ 
HOME-Funktion auf 
Linkspfeil-Taste (direkt 
über CTRL-Taste). Sehr 
störend wirkt sich aber 
der Umstand aus. daß 
auf der rechten SHIFT- 
Taste der VC-20-Tasta- 
tur die ESCAPE-Funk- 
tion des CI 16 gelandet 
ist. Das macht, etwa bei 
Textverarbeitung, den 
Umbau hinfällig. 

Gibt es eine Möglichkeit, 
die Funktion der rechten 
SHIFT-Taste herzustel¬ 
len und die ESCAPE- 
Funktion zum Beispiel 
auf die RESTORE-Taste 
zu verbannen? Linke 
SHIFT und SHIFT,/ 

LOCK funktionieren. 
Heinz Wollmann 
Umkirch bei Freiburg 

Es freut uns, daß Ihnen 
die Anpassung der VC- 
20-Tastatur an den CI 16 
beinahe gelungen ist. Da 
Tastaturen meistens in 
einer Matrix angeordnet 
werden, um Verbindungs¬ 
leitungen zu sparen, ist 
es sehr schwierig, andere 
als die vorgesehenen Ta¬ 
staturen an einen Com¬ 
puter hundertprozentig 
anzupassen. Für die von 
Ihnen beschriebene Mög¬ 
lichkeit bleibt wahr¬ 
scheinlich nur eine Hard¬ 
warelösung übrig. Das 
heißt, Sie müssen die Ta¬ 
statur öffnen und die 
Verbindungen vorneh¬ 
men. Dazu müssen Sie 
die Leiterbahnen der ent¬ 
sprechenden Tasten di¬ 
rekt neben den Kontakt¬ 
stellen auftrennen und 
durch Drähte mit den 
Kontaktstellen der jewei¬ 
ligen anderen Taste ver¬ 
binden. Als einfache Lö- 
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v.ng bietet sich auch der 
Austausch der CI 16-Ta- 
:atur gegen eine Tastatur 
des Plus4 an, die elek¬ 
tisch identisch mit der 
CI 16-Tastatur ist, aber 
die besseren Tasten be¬ 
sitzt. 


ABGESCHNITTENE 
STRINGS BEIM INPUT 


Beim Ablegen von Strings 
in sequentielle Dateien 
habe ich folgendes Pro¬ 
blem: 

Handelt es sich bei den 
ersten oder letzten Stel¬ 
len des Strings um Leer¬ 
stellen, werden diese 
nicht in der Datei abge¬ 
legt. Dies ist insofern 
lästig, als sich der Bild¬ 
schirmaufbau nach Wie¬ 
dereinlesen und Ausgabe 
der Strings verschiebt. 

Die einzige Möglichkeit, 
die ich gefunden habe, 
dieses Problem zu lösen, 
besteht darin, den String 
links und rechts um ein 
beliebiges Zeichen zu 
ergänzen und diese nach 
dem Wiedereinlesen zu 
entfernen. 

Sollte Ihnen eine elegan¬ 
tere Methode bekannt 
sein, wäre ich für eine 
Mitteilung dankbar. 

Josef Lachenmayer 
Kaufbeuren 


Beim INPUT werden 
Leerstellen am Anfang 
und am Ende abgeschnit¬ 
ten. Gegen die abge¬ 
schnittenen Leerstellen 
am Ende läßt sich nichts 
unternehmen. Das ist 
aber auch nicht nötig, da 
Sie den entsprechenden 
String bei der Ausgabe 
durch Anfügen einer aus¬ 
reichenden Menge von 
Leerzeichen und Forma¬ 
tieren mit der LEFT$- 
Anweisung auf die richti¬ 
ge Länge bringen kön¬ 
nen. Um Leerzeichen, 
Kommas und Doppel¬ 
punkt bei einer Eingabe 
erfassen zu können, er¬ 
setzen Sie INPUTA$ 
durch POKE1 7,64:SYS 
34906:S YS37210A$. 

Der POKE-Befehl 
braucht bei mehreren 
hintereinanderfolgenden 
modifizierten INPUT-An¬ 


weisungen nur einmal am 
Anfang zu stehen. Er ist 
gültig bis zur nächsten 
normalen INPUT-Anwei- 
sung. 

Zum Wiedereinlesen vom 
Datenträger — das File 
muß natürlich bereits mit 
OPEN geöffnet worden 
sein — gehen Sie folgen¬ 
dermaßen vor: POKEn 
Sie die Filenummer in _ 
die Speicherstelle 2035 
und rufen Sie SYS 65478 
auf Wie CMD den Ausga¬ 
bekanal öffnet, so öffnet 
dieser S YS-A ufruf den 
Eingabekanal. Um dem 
Rechner mitzuteilen, daß 
die Eingaben nicht von 
der Tastatur erfolgen, ist 
in die Speicherstelle 19 
noch eine Zahl ungleich 
Null zu POKEn. Jetzt 
können Sie, wie bereits 
beschrieben, Ihre Daten 
mit dem modifizierten 
IN PUT vom Datenträger 
einiesen. Nach den Ein¬ 
lesevorgängen ist mit 
POKE19,0 dem Rechner 
mitzuteilen, daß die Ta¬ 
statur nun wieder als Ein¬ 
gabegerät dient, und mit 
SYS 65484 sie als Ein¬ 
gabegerät zu definieren. 


LESERTIP: 

DISKETTENBEFEHLE 
MIT STRING¬ 
VARIABLEN 


Zum Beitrag „Scratch und 
Rename im Programm“ 
eine kleine Verbesserung: 
Die Diskettenbefehle 
SCRATCH und RENAME 
funktionieren auch in 
Verbindung mit Stringva¬ 
riablen, sofern diese in 
Klammern gesetzt wer¬ 
den. 

Beispiele: 

SCRATCH(A$) 
RENAME(ALT$) TO 
(NEU$) 

Fehler treten bei mir auf, 
wenn ich folgenden Be¬ 
fehl eingebe: 

RENAME(ALT$) TO 

(NEU$),D0,U8 

Dies sollte jedoch laut 
Handbuch möglich sein. 
Dagegen funktioniert ein¬ 
wandfrei: 

RENAME(ALT$) TO 
(NEU$),U8 

Florent Teuber 


Jeden Mittwoch 
15-19— Hotline 


Computer- 

Typ 

BASIC- 

Anfang 

DEZ- 

Ende 

BASIC- 

Anfang 

HEX- 

Ende 

RAM- 

Byte 

CI 6 

4096 - 

16383 

1000 - 

3FFF 

12287 

C116 

4096 - 

16383 

1000 - 

3FFF 

12287 

Plus4 

4096 - 

64767 

1000 - 

FCFF 

60671 

C64 

2048 - 

40959 

0800 - 

9FFF 

38911 

128PC 

7168 - 

65279 

1C00 - 

FEFF 

58111 

VC2CK3K 

4096 - 

7679 

1000 - 

1 DFF 

3583 

VC20+8K 

4608 - 

16383 

1200 - 

3FFF 

11775 

VC20+16K 

4608 - 

24575 

1200 - 

5FFF 

19967 

VC20+24K 

4608 - 

32767 

1200 - 

7FFF 

28159 

PET4K 

1024 - 

4095 

0400 - 

0FFF 

3071 

PET8K 

1024 - 

8191 

0400 - 

1 FFF 

7167 

PET16K 

1024 - 

16383 

0400 - 

3FFF 

15359 

PET32K 

1024 - 

32767 

0400 - 

7FFF 

31743 

CBM600 

0002 - 

65535 

0002 - 

FFFF 

65533 


Hätten 

Sie 

es gewußt? 

An dieser Stelle werden 
wir kleine Hilfen für den 
täglichen Kampf mit dem 
Computer veröffentlichen 
oder „Das weiß doch 
Jeder"-Themen wiederho¬ 
len, so daß auch die Ein¬ 
steiger zu ihrem Recht 
kommen. Auch Dinge, die 
bekannt sein sollten oder 
schon wieder in Verges¬ 
senheit geraten sind, 
werden ausführlich be¬ 
leuchtet. 

Der nutzbare Platz für 
BASIC ist bei den Commo- 
dore-Rechnern unterschied¬ 
lich angelegt. Bei BASIC- 
Programmen, die nicht 
automatisch an den BA- 
SIC-Anfang des Rechners 
geladen werden, kann es 
daher Probleme geben. 
Floppyspeeder laden mei¬ 
stens alle Programme abso¬ 
lut. Wenn Sie zum Beispiel 
ein vom 128PC abgespei¬ 
chertes Programm mit 
dem Plus4 mit LOAD 
“name“,8,l laden, er¬ 
scheint es ab der Speicher¬ 
stelle DEZ 7169. 

Der Plus4 benötigt es 
aber ab DEZ 4097. Laden 
Sie das Programm jedoch 
mit LOAD“name“,8 , 
wird es vom Plus4 auto¬ 
matisch an seinen BASIC- 
Anfang DEZ 4097 ge¬ 
setzt. 

Beim erneuten Abspei¬ 
chern kann das Programm 
auch absolut geladen wer¬ 
den, weil es der Plus4 mit 
seiner BASIC-Anfangsadres- 
se DEZ 4097 abgespei¬ 
chert hat. Bestimmte 
Commodore-Computer 
wie etwa der CBM 8032 
laden BASIC-Programme 
von anderen Rechnern 
nicht automatisch an ihren 
BASIC-Anfang. Also su¬ 
chen sie nach einem Lade¬ 
versuch vergeblich. 

Der rechnerische Wert der 
RAM-Bytes kann von der 
tatsächlichen Systemmel¬ 
dung abweichen. 
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■ TIPS & TRICKS 


Die Funktion eines Joy¬ 
sticks ist denkbar einfach. 
Die Pin-Belegung ist wie 
folgt: 

Pin Belegung 

1 oben 876 

2 rechts 

3 unten 

4 links 5 4 3 

5 + 5V 

6 Feuerknopf 

7 Masse 2 1 

Wird nun zum Beispiel 
Pin 1 (oben) mit Pin 7 
(Masse) verbunden, ergibt 
PRINT JOY(l) die Zahl 1. 
Im Fachhandel gibt es 
konfektionierte Kabel mit 
entsprechendem Stecker. 
Sicherheitshalber sollte 


PIN-BELEGUNG DES 
JOYSTICK-PORTS - 
PORT 1 UND 2 
ALS KONTROLL¬ 
STATION 

der Anschluß für +5V iso¬ 
liert werden, damit kein 
Kurzschluß entsteht. Die 
anderen Anschlüsse sind 
in diesem Zusammenhang 
unproblematisch. Wenn 
das Geschäft keine pas¬ 
senden Kabel vorrätig hat, 
kann auch ein Joystick- 
Adapter verwendet wer¬ 
den, der normalerweise 
benutzt wird, um Joy¬ 
sticks mit neunpoliger 
Sub-D-Buchse (C64) an 
den CI 6/Plus4 anzuschlie¬ 
ßen. Hier sind in der Re¬ 
gel nur die sechs für den 
Joystick notwendigen 
Kabel angeschlossen. Ein 
einfacher Test kann mit 
einem Miniprogramm 
durchgeführt werden: 

0 print joy(l):goto 

Wird nach dem Starten 
dieser Zeile eines der 
Kabel von 1 bis 4 oder 6 
mit Pin 7 verbunden, än¬ 
dert sich der ausgedruck¬ 
te Wert. Übrigens springt 
ein GOTO ohne Zeilen¬ 
nummer zu Zeile 0. 

DER C16 ALS 
ALARMANLAGE 

Die Verbindung der ent¬ 
sprechenden Pins mit 
Masse (Pin 7) kann auf 


Vom Joystick 
bis Script Plus: 
Tips & Tricks 
für C16/P4 


Wie gewohnt, bringt die Seite 16 wieder 
Tips und Tricks, wie Sie Ihren Computer noch besser 
nutzen können. Diesmal zeigen wir Ihnen, wie man 
mit Hilfe der beiden Joystick-Ports eine Alarmanlage 
realisieren kann. Außerdem finden Sie das Hilfs¬ 
programm Silbentrennung zur Bearbeitung von 
SCRIPT/PLUS-Texten. 


vielfältige Weise gesche¬ 
hen. Die einfachste Me¬ 
thode wird im Innern des 
Joystick angewandt. Hier 
sind einfach kleine Schal¬ 
ter oder Metallkontakte, 
die die einzelnen Pins auf 
Masse legen. Genauso¬ 
gut kann man auch soge¬ 
nannte Reed-Relais ver¬ 
wenden. Diese werden 
bevorzugt in Alarmanla¬ 
gen eingesetzt, um das 
Öffnen und Schließen 
von Fenstern und Türen 
zu kontrollieren. Ein 
Reed-Relais besitzt zwei 
metallische Kontakte, die 
sich schließen, wenn ein 
Magnet in die Nähe ge¬ 
bracht wird und sich öff¬ 
net, wenn er wieder ent¬ 
fernt wird. Diese Schalt¬ 
kontakte sind sehr klein 
und zudem preiswert 
zu erhalten. Genauso 
kann mit einem Queck¬ 
silber-Neigungsschalter 
das Anheben oder Er¬ 
schüttern eines Gegen¬ 
standes kontrolliert wer¬ 
den. In gleicher Weise 
kann eine Matte mit Tritt¬ 
kontakten eingesetzt wer¬ 
den. Soll die Temperatur 
eines Gerätes überwacht 
werden, so kann dafür 
ein Temperaturschalter 
verwendet werden. Dieser 
betätigt sich bei einer be¬ 
stimmten Temperatur 
(zum Beispiel 100 Grad) 
und man kann dies mit 
dem Joystickport leicht 
überwachen. In der glei¬ 


chen Weise kann mit ei¬ 
ner Reflexlichtschranke 
oder einer Gabellicht¬ 
schranke das Vorhanden¬ 
sein oder Fehler eines 
Metall- oder Papierban¬ 
des überwacht werden. 

Mit Hilfe einer Taschen¬ 
lampenbirne oder einer 
infraroten Leuchtdiode 
und eines Fototransistors 
kann eine einfache Licht¬ 
schranke gebaut werden. 
Dazu eignet sich zum Bei¬ 
spiel als Sender der Typ 
LD261 und als Empfän¬ 
ger BPX81. Der Kontakt 
ist geschlossen, wenn der 
Fototransistor beleuchtet 
wird. Er ist offen, wenn 
Dunkelheit herrscht. Für 
eine solche Anwendung 
haben wir das Beispielpro¬ 
gramm SCHALTER ge¬ 
schrieben. 

Eine typische Anwendung 
wäre ein Physikerversuch 
mit der sogenannten schie¬ 
fen Ebene. Entlang der 
Fahrbahn eines kleinen 
Modellautos befinden sich 
zehn Fototransistoren, die 
mit den entsprechenden 
Pins an den Ports 1 und 
2 (mit gemeinsamer Mas¬ 
se) verbunden werden. 

Auf dem Wagen befindet 
sich eine kleine Lampe, 
die die Transistoren beim 
Vorbeifahren schaltet. 

Die Schalterstellung wird 
angezeigt. Die Zeitdiffe- 
renz zwischen den Schal¬ 
tern wird in Zeile 80 be¬ 
stimmt. Da es nur zehn 


Werte sind, braucht keine 
DIM-Anweisung zu er¬ 
folgen. 

Bei diesem Programm 
wird vorausgesetzt, daß 
nur jeweils ein Kontakt 
geschlossen wird. Für An¬ 
wendungen, bei denen zu¬ 
nächst alle Schalter ge¬ 
schlossen sind und nur ei¬ 
ner geöffnet wird, muß 
auf die Speicherstelle 
$FF08 zurückgegriffen 
werden. 

JOYSTICK-ABFRAGE 
OHNE JOY 

Der entscheidende Nach¬ 
teil der JOY-Funktion 
für Meßzwecke ist die 
Tatsache, daß die Funk¬ 
tion nur vernünftige Wer¬ 
te liefert, wenn die Kon¬ 
takte eine der mit dem 
Joystick möglichen Stel¬ 
lungen entspricht. Was 
vernünftig ist, da zum 
Beispiel „oben“ und 
„unten“ gleichzeitig nicht 
möglich ist. Die Abfrage 
der Joystickpositionen 
ohne die JOY-Funktion 
erfordert leider etwas 
Übung mit Maschinen¬ 
sprache und Kenntnis 
der Hardware des CI 6. 

Die vier Leitungen für 
„oben“, „rechts“, „un¬ 
ten“ und „links“ haben 
bei Port 1 und Port 2 die 
gleichen Leitungen und 
sind mit der Tastaturma¬ 
trix verbunden. Die bei¬ 
den Leitungen für die 
Feuerknöpfe sind ge¬ 
trennt. Die Verbindung 
mit der Tastaturmatrix 
wird offensichtlich, wenn 
der Joystick mit GETa$ 
abgefragt wird. 

Hierzu ein kleines 
Beispiel: 
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TIPS & TRICKS 


10 v$=" 56 rdt " : rem port 1 
20 v$-v$+" 34 wa":rem port 2 
30 geta$:|»rint.instr( v$,a$) :goto 30 


Hier entspricht „1“ der 
Position „oben“ bei Port 
1 und „6“ der Position 
..oben“ bei Port 2. Die 
Feuertaste von Port 2 
kann so nicht abgefragt 
werden. 

Umgekehrt erhält man die 
richtigen Werte mit 
JOY(l) und JOY(2) durch 
die Tasten 1,2, HOME, 
CTRL und SPACE(=Feu- 
er). Ein Joystickspiel, das 
mit der JOY-Funktion ar¬ 
beitet, kann also ohne 
Joystick gespielt werden. 
Nicht so Maschinenpro¬ 
gramme. Hier erfolgt die 
Abfrage komplizierter. 

Wir haben für unsere Le¬ 
ser daher ein kleines Ma¬ 
schinenprogramm geschrie¬ 
ben, das die Joystick¬ 
position abfragt: 


stem (ab $BFC1) ko¬ 
piert: 

T BFCD BFDD 0660 

Nach dem Aufruf der 
Routinen steht das jewei¬ 
lige Ergebnis im Akku- 
Register und kann durch 
PEEK(2034) abgefragt 
werden. 


PORT-AUSWAHL 

DURCH 

SCHREIBZUGRIFF 

Wie weiter.oben erwähnt 
wurde, haben die Pins 
von Port 1 und Port 2 
teilweise die gleichen Lei¬ 
tungen. Wie kann dann 
unterschieden werden, 
von welchem Port das 
Signal kommt? Dies ge¬ 
schieht durch einen 
Schreibzugriff (STX $....) 
auf $FF08. Je nachdem, 
welcher Wert gePOKEd 


muß dieses Ergebnis in 
der Regel zu einem Alarm¬ 
signal verarbeitet werden. 
Die einfachste Möglich¬ 
keit besteht in der Ver¬ 
wendung des Sound-Be¬ 
fehls und der entspre¬ 
chenden Bildschirmanzei- 

AUSLÖSEN 
DES ALARMS 

ge. Jedoch kann meist der 
Fernseher nicht die ganze 
Zeit eingeschaltet bleiben. 
Daher hier ein einfacher 
Tip, wie ein Alarm aus¬ 
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a 2 Ta 


065 « 

06 ST 

0661 

0664 

0667 

066 a 

066 d 

066 f 

0671 

0672 

0673 

0674 

0676 

0679 

067 « 

067 f 

0682 

0604 

0686 

0687 


Dies sind zwei Routinen. 
Die erste (für Port 1) be¬ 
ginnt bei $065e und wird 
mit SYS 1630 aufgerufen, 
die zweite beginnt bei 
$0673 und wird mit 
SYS 1651 gestartet. Man 
kann sich die Tipparbeit 
erleichtern, indem man 
mit dem Transfer-Befehl 
einen Teil der JOY- 
Routine im Betriebssy¬ 


Beispiel: IR sys 1 630 : b Ä peek( 2034 ) : rem portl 

20 print 

ha Fici 1 ;band2;band4;banc!8 ;band64 ; 

30 sys1651:b^peekC2034):rem port2 
40 print ehr$(18)band1;band2;hand4;band 
8;band 120:goto 10 


Mit Hilfe von IF-Abfra- 
gen und der AND-Funk- 


0$Ta 

$tT0B 

$TT 08 

$Ff 08 

$ff 08 

$0661 

0$Tf 


0$fd 

$Tf08 

$ff0B 

$Tf08 

$ff 08 

$0676 

#$ff 


tion kann jede Schalter¬ 
stellung erfragt werden: 


wird, liegt die Masselei- 
tung von Port 1 oder Port 
2 an Masse. Die beiden 
möglichen Werte sind: 

Port 1: 

$FA = 250 = 11111010 
Port 2: 

$FD = 253 = 11111101 

Der Schreibzugriff wird 
zur Sicherheit wiederholt, 
um kurzfristige Schwan¬ 
kungen auszugleichen. Die 
Abfrage geht auch in 
BASIC: 


gelöst werden kann. Am 
Kassettenport stehen 
fünf Volt zur Verfügung, 
mit denen normalerweise 
der Recordermotor be¬ 
trieben wird. Wird hier 
ein Piezosummer (ver¬ 
braucht sehr wenig 
Strom) angeschlossen, so 
kann durch Einschalten 
des Kassettenrecorders 
dieser Summer betätigt 
werden. Genauso kann 
ein Relais gesteuert wer¬ 
den, das eine Sirene in 
Betrieb setzt. 


10 a ■=*65288 

20 pokea,250:b=peek(a):rem port 1 
30 print 

band 1;band2;band4;bandS;band64;band 128: 
goto 20 


Beispiel: 


Die Ergebnisse sind je¬ 
doch fehlerhaft, da 
manchmal der Interrupt 
zwischen POKE und 
PEEK den Wert ver¬ 
ändert. 

Wenn der C16/’Plus4 ein 
Ereignis an einem der 
Joystickports feststellt, 


100 

sys 1630 :b 

-peekC 2034 ) 


110 

if bandl 

then 

print. ” 

oben" 

120 

if hand 2 

then 

print” 

unten" 

130 

if band 4 

then 

print" 

links" 

140 

150 

If bänd 8 
goto 100 

t hen 

p rint" 

rech ts" 


Wir hoffen, daß Sie durch 
diese Beispiele angeregt 
wurden, Ihren C16/Plus4 
zu Meßzwecken einzuset¬ 
zen. Wir würden uns freu¬ 
en, wenn Sie uns Ihre An¬ 
wendungen mitteilen 
würden. 

TEXTE RECHTS¬ 
BÜNDIG AUSDRUCKEN 

Mit SCRIPT/PLUS kann 
man auf einfache Weise 
beliebige Texte erstellen. 
Besonders schön werden 
diese mit der Formatan- 
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■ TIPS & TRICKS 


Weisung jul (justification 
ein). Diese bewirkt, daß 
alle Zeilen gleich lang 
werden. Fehlende Buch¬ 
staben werden durch Leer¬ 
zeichen zwischen den 
Worten aufgefüllt. Damit 
dabei nicht zu große Lük- 
ken entstehen, muß am . 
Zeilenende richtig ge¬ 
trennt werden. 

Hierzu hat SCRIPT/PLUS 
die Möglichkeit, sogenann¬ 
te Soft Hyphen (weiche 
Trennungszeichen) einzu¬ 
fügen. Dies geschieht mit 
ESC und COMMODO- 
RE/—. Im Handbuch ist 

TRENNVORSCHLÄGE 


hier ein Druckfehler und 
es wird die Ctrl-Taste an¬ 
gegeben. Steht ein sol¬ 
ches Zeichen im Wort, so 
wird an dieser Stelle ge¬ 
trennt, wenn sie am Zei¬ 
lenende zu stehen kommt. 
Der Nachteil liegt darin, 
daß nur ein solches Tren¬ 
nungszeichen eingesetzt 
werden kann. Mehrere 
Trennvorschläge schaden 
zwar nichts, da sie nor¬ 
malerweise nicht ausge¬ 
druckt werden, aber es 
wird prinzipiell das erste 
verwendet, auch wenn ein 
anderes eine günstigere 
Trennung ergäbe. Soll 
ein wichtiger Text im 
Blocksatz (beispielsweise 
rechtsbündig) gedruckt 
werden, ist es unumgäng¬ 
lich, die Trennungen von 
Hand einzufügen. Dazu 
muß die Zeilenlänge im 
Eingangsmenü auf die 
gewünschte Länge einge¬ 
stellt werden und nach 
jeder Silbentrennung der 
Abschnitt neu formatiert 
werden. Dies ist sehr auf¬ 
wendig. Daher haben wir 
Ihnen das Hilfsprogramm 
SILBENTRENNUNG ge¬ 
schrieben, mit dem die 
optimale Trennung auf 
einfache Weise möglich 
ist. Das Programm ist auf 
Diskettenbetrieb ausge¬ 
legt, kann aber leicht mit 
Hilfe des Handbuchs für 
Kassettenbetrieb umge¬ 
schrieben werden. Der 
mit SCRIPT/PLUS (oder 
einem anderen Programm- 
das mit ASCll-Zeichen ar¬ 
beitet) erstellte Text 


wird in den Speicher ge¬ 
laden und Zeile für Zeile 
abgearbeitet. Immer, 
wenn ein Leerzeichen 
oder Trennungszeichen 
auch Soft Hyphen) ge- 
unden wird, überprüft un¬ 
ser Programm, ob die er¬ 
forderliche Zeilenlänge er¬ 
reicht ist. Bei einer zu lan¬ 
gen Zeile wird diese am 
Schirm angezeigt und 
mit Hilfe der Cursorta¬ 
sten (links und rechts) 
das Trennungszeichen an 
die gewünschte Position 
gebracht. Mit Return 
wird die Zeile abgeschlos¬ 
sen und das Programm 
fügt automatisch den 
Return-Code 13 in den 
Text ein. 

PROGRAMM¬ 

ERKLÄRUNG 

Zeile 100: Der Speicher 
wird begrenzt, um einen 
geschützten Textspeicher 
zu schaffen. 

Zeile 160—180: Die Zei¬ 
lenparameter und der 
Filename werden abge¬ 
fragt. Die Variable DM 
gibt an, wieviele Zeichen 
noch bis zum Zeilenende 
fehlen dürfen, damit das 
Programm automatisch 
ein Return setzt. 

Zeile 200—250: Einlesen 
des ASCII-Textes in den 
Speicher. Die Print-An¬ 
weisung in 230 kann weg¬ 
gelassen werden (der Ab¬ 
lauf wird dadurch schnel¬ 
ler). 

Zeile 280: Das alte Text¬ 
file wird in eine Sicher¬ 
heitskopie umbenannt. 
Hier kann der Rename-Be- 
fehl nicht verwendet wer¬ 
den, da dieser keine Va¬ 
riablen verarbeitet. 
(Anmerkung der Redak¬ 
tion: Der Rename-Befehl 
kann Variablen verarbei¬ 
ten, wenn diese in Klam¬ 
mern eingeschlossen wer¬ 
den.) 

Zeile 300: Seq-File zum 
Schreiben öffnen. 

Zeile 330—370: Überprü¬ 
fung, ob ein Trennungs¬ 
zeichen gefunden wurde. 
Zeile 380—390: Prüfung 
auf Zeilenende. Ist die 
maximale Zeilenlänge er¬ 
reicht und das letzte Tren¬ 
nungszeichen zu weit ent- 


STLBFNTRFNNIJNG 


10 rem Silbentrennung =========c16 <kg> 

?0 rem (p) commodore weit team <ho> 

30 rem =========================== <ng> 

40 rem (c) by r. schmid-fabian < jp > 
50 rem heidelberg <kp> 

60 rem <ah> 

70 rem basic v3.5 <nl> 

80 rem c!6/116/p4 floppy <ba> 

90 rem =========================== <jg> 

100 poke55,0:poke56,39:clr <bi> 

110 1$=" ":b$="-":rem trennzeichen <le> 
120 sh$=c:hr$( 192) : rem sof t-trennze 
ichen <li> 

130 cr$-chr$(013):nl$-chr$( 147) <bm> 

140 li$=chr$(157): re$=chr$(29) <el> 

150 ro$-chr$(146):rv$=chr$( 18) :d$= 
1$+1$+1$+1$ <pb> 

160 inpufmax. Zeilenlaenge" ; ml <df> 

170 input"max. Abweichung";dm <ae> 

180 input."file-Name";p$ <nn> 

190 rem ****** einiesen ********** <] a > 
200 t rap250 <kc> 

210 open2,8,2,p$+",s,r" <de> 

220 fori=12000to60000 <kj> 

230 get#2, «i$: pokei, asc( a$) :printa$ 

; <bo> 

240 if st=0 then next <mi> 

250 elose2:hlt=i <hd> 

260 rem **** rename v. p$ ******* <el> 
270 printchr$( 147) ".Jetzt wird "+ch 
r$(34)+p$+nhr$(34)+" umbenannt (Ta 
ste)":getkeya$ <na> 

280 open 1,8,15,"r:" +left$( p$+d$+d$ 

+d$,12)+".bak+"+"="+p$:closei <dl> 

290 rem ****** bearbeiten ******** <fc> 
300 open2,8,2,p$+",s,w" <kp> 

310 for i=12000 to hlt <gm> 

320 a$-chr$(peek(i)) <gp> 

330 if a$^=sh$ then tp = z 1: en$-b$ : go 
to380 ’ <nb> 

340 if a$=cr$ then printrv$w$:prin 
,t#2 > w$:zl=0:w$="":goto440 <jh> 

350 w$-w$+a$:zl=zl+1 <gk> 

360 if a$=l$ then tp=z1:en$="" <bf> 

370 if a$-b$ then tp~zl:en$=b$ <je> 

380 if zl<ml then 440 <oa> 

390 if(mi-tp)>dm then gosub 480 <na> 

400 pr$-left$(w$,tp)+en$:printrv$p 
r$ <ph> 

410 print#2,pr$ <ig> 

420w$~right$(w$,ml-tp) <gk> 

430 tp=0 : zl--len( w$) <na> 

440 next <pf> 

450 close2:end < Pg > 

460 rem ****** trennung ********** <oo> 
470 rem ****** von hand ********** <og> 
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480 d-0 : x$-"" :f orv= i.+ 1loi+6 : x$-x$ + 
chr$(p«ek(v)):nextv < gh > 

490 if dsc(x$)-32 then i=i+1:tp-le 
n( n$): en$-"":return <np> 

500 x$ -rv$+x$ <pn> 

510 pr$=right$(w$,ml):/$-left$(pr$ 
t ml—d) : t$-~right.$C pr$, d) <lo> 

520 en$--b$ i p=pnekC i-d) : if p-32 the 
n eri$-l$ <le> 

530 printchr$(147)+z$+ry$+en$+ro$+ 
t$+x$ <al> 

540 getkeyq$ <jj> 

550 if q$-li$ then d=d+1 <gk> 

560 if q$=re$ then d=d-1:if d<0 th 
eil d-0 <kb> 

570 if q$=cr$ then tp=len(w$)-d:en 

printr.l$: return <ga> 

580 goto510 <ap> 

590 rein ========================== <ce> 

600 rem program in ende <gm> 
610 rem =================»======== <id> 


S C H A L TER.C16 

10 rem Schalter ==========-----r, 1 6 <im> 

20 rem **#**■»#***»***■»***■#**«****■* <ch> 
,30 rem ** abfrage der optischen <gg> 
40 rem ******* Schalter »»***»»*** <ah> 
50 scnclrrfor i-1 to 10:char,1,i," 


schal ter"+str$(i-1)+":":next <gb> 

60 t.0-ti <ag> 

70 do:a=joy(1):b=joy(2):loop until 
a+b <ij> 

80 dt;-1i-10 <kc> 

90 ifC a+b)=128 then d=-9*(a=128):b 
--9*(b-128) <mb> 

100 sw-( a+b+1) /2-5-C ti>0) <ga> 

110 for i = 1 to 10:char,15,i,str$(- 
(i=sw)):next <fo> 

120 goto60 <ia> 

130 rem ========================== <np> 

140 rem prog rammende <fe> 

150 rem ========================== <nj> 


femt, wird in das Unter¬ 
programm ab Zeile 480 
verzweigt. 

Zeile 480: Die nächsten 
fünf Zeichen werden aus 
dem Speicher geholt, da¬ 
mit man beim Trennen 
die Fortsetzung des Wor¬ 
tes sehen kann. 

Zeile 490: Ist das Folge¬ 
zeichen ein Leerzeichen, 
so wird die Zeile selb¬ 
ständig abgeschlossen. 
Zeile 500-550: Die über¬ 
lange Zeile wird ange¬ 


zeigt. Der Wort- oder 
Satzteil, der über die ma¬ 
ximale Zeilenlänge hin¬ 
ausgeht, erscheint revers. 

ZWEISPALTIG 

DRUCKEN 

SCRIPT/PLUS ist zwar 
sehr komfortabel und 
auch das im Plus4 einge¬ 
baute Textsystem erlaubt 
(in gewissen Grenzen) 
die Erstellung von größe¬ 


ren Texten. Natürlich 
kann man für diesen Preis 
kein Desktop-Publishing- 
Programm verlangen. 

Aber es können auf ein¬ 
fache Weise mit SCRIPT/ 
PLUS auch zweispaltige 
Texte erstellt werden. 
Dazu muß der Text zu¬ 
erst vollkommen fertig 
eingegeben sein. Dann 
begrenzt man die Zeilen¬ 
länge zum Beispiel auf 40 
Zeichen mit dem Pro¬ 
gramm SILBENTREN¬ 
NUNG. Im Eingangsme¬ 
nü von SCRIPT/PLUS 
wird die gesamte Zeilen¬ 
länge (zwei Spalten + Ab¬ 
stand + Rand) eingestellt. 
Nachdem der Text einge¬ 
laden wurde (Wordwrap 
ausschalten) ist der Text 
auf die linke Hälfte der 
verfügbaren Breite be¬ 
schränkt. Jetzt kommt 
eine außergewöhnliche Ei¬ 
genschaft von SCRIPT/ 
PLUS zur Anwendung - 
nur wenige Textsysteme 
haben diese. Mit Esc und 
Shift R kann ein kom¬ 


pletter Textblock markiert 
werden (es erscheint SET 
COLUMN RANGE) und 
nach Drücken von Return 
kann dieser mit den Cur¬ 
sortasten verschoben wer¬ 
den. Angenommen, es 
sollen 50 Zeilen auf eine 
Seite gedruckt werden, so 
muß der Text ab Zeile 51 
bis 100 als Block mar¬ 
kiert und zuerst nach 
rechts und dann nach 
oben verschoben werden, 
bis die beiden Spalten ne¬ 
beneinander stehen. Vor¬ 
sicht! Der markierte 
Block kann den stehen¬ 
den Text überschreiben, 
wenn der Block über die¬ 
sen Text geschoben wird. 
Dieser Vorgang wieder¬ 
holt sich, bis alle Seiten 
zweispaltig im Speicher 
stehen. Dabei kann auch 
Platz für Bilder gelassen 
werden. Nach Einfügen 
von Formatzeichen und 
Seite-Ende-Kennung 
kann jetzt der zweispalti¬ 
ge Text ausgedruckt 
werden. □ 
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■ LISTINGS 


Sprites und Animation 


Hier ist sie, die BASIC-Erweiterung, mit der Sie, 
sofern Ihr Rechner mit mehr als 16 KByte Haupt¬ 
speicher ausgerüstet ist, richtige Sprites erzeugen 
können. 26 Befehle bringen eine Menge Bewegung 
ins Spiel. 

Jetzt gibt es auch für den CI 6 Sprites, die den Hinter¬ 
grund nicht überschreiben und pixelweise positioniert 
werden können. Außerdem stellen wir jede Menge Be¬ 
fehle vor, die das Programmieren von Animation, 
Scrolling und vielem mehr ermöglichen. 

Vorab noch einige Hinweise: 

1. Alle Befehlsworte beginnen mit einer Raute (#). 

2. Im Direktmodus und nach den BASIC-Befehlen 
THEN und ELSE muß zusätzlich ein Doppelpunkt 
eingegeben werden: 

IFX=0THEN:#SPRITE0FF0 

3. Der Befehl GRAPHIC CLR darf nicht mehr be¬ 
nutzt werden, da sonst S&A BASIC zerstört würde. 

4. Bevor man die Sprites benutzt, muß man 
:#ZTRANS120 :#CHN120 : POKE65287,l36 
eingeben. 

5. Aufbau eines Sprites: 

Ein Sprite ist ein aus neun Zeichen zusammenge¬ 
setzter Block. 

Es werden aber nur zwei mal zwei Zeichen als 
Sprite dargestellt. 

6. Sprites dürfen sich nicht überlagern, da es sonst zu 
Grafikverfälschungen kommt. 


DIE S&A-BASIC-BEFEHLE 


1. #SETSPRITE Nr, XG, YG, XF, YF 

[Nr=0—7; XG=0—37; YG=0-22; XF, YF=0-8] 

Setzt das Sprite Nr auf die Bildschirmposition XG; YG. 
XF und YF bieten die Möglichkeit, das Sprite nach der 
groben Positionierung auf die Feinposition XF; YF zu 
setzen. 

2. #SPRITEOFF NR 
[NR=0-7] 

Schaltet das Sprite Nr ab. 

3. # AN IM ATE BC, R 
[BC=0—255; R=0—3] 


Das Zeichen mit dem Bildschirmcode BC wird um ein 
Pixel in die Richtung R verschoben. Was die einzelnen 
R-Werte bewirken, ist unter „Richtungswerte“ be¬ 
schrieben. 

4. #SPIEGEL BC, RH 
[BC=0—255; RH=0—1] 

Das Zeichen BC wird horizontal (RH=0) beziehungs¬ 
weise vertikal (RH=1) gespiegelt. 

5. #FILL XO, YO, XU, YU, Z 

[XO, XU=0—39; YO,YU=0—24; Z=0-255] 

Füllt den Bildschirmausschnitt mit den Koordinaten 
XO; YO und XU; YU mit den CHR$-Code des Zei¬ 
chens Z. 

6. #SPALTE Flagl 
[Flagl=0—1] 

Der Bildschirm wird abhängig von Flagl auf 38 be¬ 
ziehungsweise 40 Spalten gesetzt (siehe auch unter 
Flagl). 

7. #ZEILE Flagl 
[Flagl=0—1] 

Der Bildschirm wird, abhängig von Flagl, auf 24- 
oder 25-Zeilen-Format gebracht (siehe auch unter 
Flagl). 

8. #SCROLL R, XO, YO, XU, YU, Flag2 
[R=0—3; XO, XU=0—39; YO,YU=0-24; 

Flag2=0—1] 

Scrollt oder rollt einen Bildschirmausschnitt mit den 
Koordinaten XO; YO und XU; YU in die Richtung 
R (siehe auch unter „Richtung“, Flag2). 

9. #SOFTV Pos 
[Pos=0—7] 

Setzt den Bildschirm auf die vertikale Smooth-Scrol- 
ling-Position pos. 

10. #SOFTH Pos 
[Pos=0—7] 

Hat dieselbe Wirkung wie SoftV, nur in horizontaler 
Richtung. 
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11. #CHN ADR 
[ADR=0—255] 

Schaltet den selbstdefinierten Zeichensatz mit der 
High-Adresse ADR an (siehe auch ADR). 

12. #CHOFF 

Schaltet denselben aus und gleichzeitig den Original- 
Zeichensatz an. 

13. #ZTRANS ADR 
[ADR=0—255] 

Kopiert den Original-Zeichensatz an die High-Adrcs- 
se ADR ins RAM (siehe auch ADR). 

14. #ZLINK BC, MUSTER 
[BC=0—255; Muster=0—255] 

Das Zeichen mit dem Bildschirmcode BC wird mit 
dem Muster EOR-verkntipft. 

15. #MCN 

Schaltet den Multicolor-Modus an. 

1 6. #MCOFF 
Schaltet ihn aus. 

17. #ECMN 

Schaltet den erweiterten Hintergrund-Modus (=Ex- 
tended-Color-Mode) an. 

18. #ECMOFF 
Schaltet ihn aus. 

19. #ZDESIGN BC, x, x, x, x, x, x, x, x 
[BC,x=0—255] 

Definiert ein neues Zeichen mit dem Bildschirmcode 
BC und den acht Byte x. 

20. #SDESIGN Nr, Bnr, x, x, x, x, x, x, x, x 
[Nr=0—7; Bnr=0-3; x=0-255] 

Definiert den Block Bnr des Sprites Nr durch die acht 
Byte x. 

Bnr=0 linke obere Sprite-Ecke 
Bnr=l linke untere Sprite-Ecke 
Bnr=2 rechte obere Sprite-Ecke 
Bnr=3 rechte untere Sprite-Ecke 


21. =SREVERS Nr, Bnr 
[Nr=0—7; Bnr=0-3] 

Reversiert den Block Bnr des Sprites (siehe auch 
=SDESIGN BNR). 

22. =rECMCOL Fl, F2, F3 
[Fl, F2, F3=0—255] 

Legt die drei zusätzlichen Farben für den ECM-MODE 
fest. 

23. =MCCOL Fl, F2 
[Fl, F2=0—255] 

Legt die zwei zusätzlichen Farben des MC-Modes fest. 

24. #MELODY Mnr, Tg, L, TH, TL, . . . 

[Mnr=0—4; Tg=0-2; L=0-8; TH=0-1023; 

TL=0—255] 

Definiert die Melodie Mnr auf dem Tongenerator Tg 
mit der Länge L und den dazugehörigen Noten 
(TH=Tonhöhe, TL=Tonlänge). 

25. =PLAY Mnr 
[Mnr=0—4] 

Spielt die Melodie Mnr, die zuvor definiert wurde. 

26. -SHOW 

Zeigt alle S&A-BASIC-Befehle auf dem Bildschirm an. 


RICHTUNGSWERTE 


Bei R=0 wird nach links, bei R=1 nach rechts verscho¬ 
ben. Nach oben wird bei R=2 verlagert, bei R=3 folg¬ 
lich nach unten 

Flag 1 

Flag 1=0 — Der Bildschirm wird verkleindert. 

Flag 1 = 1 — Der Bildschirm hat seine normale 

Größe. 

Flag 2 

Flag 2 bestimmt, ob der Bildschirm gerollt: 

Flag 2 < 128 oder gescrollt wird: 

Flag 2 ;> 128 

Lesen Sie bitte weiter auf Seite 42 
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1 
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4c 

49 

4e 

4 b 

00 

4d 

43 

: <76> 

> 1 d08 

00 

00 

00 

00 

00 

00 

00 

04 

: <30> 

> 1 b c 0 

4e 

00 

4d 

43 

4f 

46 

46 

00 

: <89> 

> 1 d90 

0 e 

3e 

ff 

ff 

3e 

0 e 

04 

00 

: <43> 

> 1 b c 8 

45 

43 

4d 

4e 

00 

45 

43 

4d 

: <3b> 

> 1 d98 

00 

00 

00 

00 

00 

00 

00 

00 

: <4e> 

> 1 bd 0 

4f 

46 

46 

00 

5a 

44 

45 

53 

: <ba> 

> 1 da 0 

00 

00 

00 

00 

00 

00 

00 

00 

: <5e> 

> 1 bdB 

49 

47 

4e 

00 

53 

44 

45 

53 

: <56> 

> 1 da 8 

00 

00 

00 

00 

00 

00 

00 

00 

: < 6 e > 

> 1 b e 0 

49 

47 

4e 

00 

53 

52 

45 

56 

: <48> 

> 1 dh 0 

00 

00 

00 

00 

00 

00 

00 

00 

: <?e> 

> IbßB 

45 

52 

53 

00 

45 

43 

4d 

43 

: <53> 

> 1 d b 8 

00 

00 

00 

01 

02 

03 

04 

05 

: <9a> 

> 1 bf 0 

4f 

4c 

00 

4d 

43 

43 

4f 

4c 

: <53> 

> 1 dc 0 

06 

07 

08 

00 

00 

00 

00 

00 

: <d 2 > 

> IbfB 

00 

4d 

45 

4c: 

4f 

44 

59 

00 

: <e9> 

> IdcB 

00 

00 

00 

00 

00 

00 

00 

00 

: <ae > 

> 1 c 00 

50 

4c 

41 

59 

00 

53 

48 

4f 

: <d 6 > 

> 1 d d 0 

00 

00 

00 

00 

00 

00 

00 

00 

: < b e > 

> 1 c0B 

57 

00 

80 

65 

41 

b9 

41 

97 

: <c3> 

> Idtie 

00 

00 

00 

00 

00 

00 

00 

00 

: <ce> 

> 1 c 10 

44 

0 b 

45 

9d 

45 

fc 

45 

1 c 

: <c3> 

> 1 de 0 

00 

00 

00 

00 

00 

00 

00 

00 

: <de> 

> 1 c 1 8 

46 

3 c 

46 

5 c-*. 

47 

77 

47 

90 

: < 1 3> 

> 1 d e 8 

00 

00 

00 

00 

00 

00 

00 

00 

: <ee> 

> 1 c 20 

47 

aa 

47 

b7 

47 

df 

47 

fb 

: <69> 

> 1 df 0 

00 

00 

00 

00 

00 

00 

00 

00 

: <f e> 
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BGA-RAGIC — Ei — 


> 

IdfB 

00 

00 

00 

00 

00 

00 

00 

00 

: <0e> 

> 

1 600 

00 

00 

00 

00 

00 

00 

00 

00 

: < 1 e > 

> 

1 e0R 

00 

00 

00 

00 

00 

00 

00 

00 

: <2e> 

> 

1 e 10 

00 

00 

00 

00 

00 

00 

00 

00 

: <3e> 

> 

1e18 

00 

00 

00 

00 

00 

00 

00 

00 

: <4e> 

> 

1 e20 

00 

00 

00 

00 

00 

00 

00 

00 

: <5e> 

> 

1 e?8 

00 

00 

00 

00 

00 

00 

00 

00 

: <6e> 

> 

1 a30 

00 

00 

00 

00 

00 

00 

00 

00 

: <7e > 

> 

1 e38 

00 

00 

00 

00 

00 

00 

00 

00 

: <8e> 

> 

1 «40 

00 

00 

00 

00 

00 

00 

00 

00 

: <9e> 

> 

1 e48 

00 

00 

00 

00 

00 

00 

00 

00 

: <ae> 

> 

1e50 

00 

00 

00 

00 

00 

00 

00 

00 

: <be> 

> 

1 e58 

00 

00 

00 

00 

00 

00 

00 

00 

: <ce> 

> 

1 b60 

00 

00 

00 

00 

00 

00 

00 

00 

: < d e > 

> 

1 e68 

00 

00 

00 

00 

00 

00 

00 

00 

:<ee> 

> 

1 e70 

00 

00 

00 

00 

00 

00 

00 

00 

: <fe> 

> 

1 e7B 

00 

00 

00 

00 

00 

00 

00 

00 

: <0e> 

> 

1 e 80 

00 

00 

00 

00 

00 

00 

00 

00 

: < If > 

> 

1 eB8 

00 

00 

00 

00 

00 

00 

00 

00 

: <2f > 

> 

le90 

00 

00 

00 

00 

00 

00 

00 

00 

: <3f > 

> 

1 e9R 

00 

00 

00 

00 

00 

00 

00 

00 

: <4f > 

> 

1 ea0 

00 

00 

00 

00 

00 

00 

00 

00 

: <5f > 

> 

1 ea8 

00 

00 

00 

00 

00 

00 

00 

00 

: <6f > 

> 

1 eb0 

00 

00 

00 

00 

00 

00 

00 

00 

: <7f > 

> 

1eh8 

00 

00 

00 

00 

00 

00 

00 

00 

: <8f > 

> 

1 eo0 

00 

00 

00 

00 

00 

00 

00 

00 

: <9f > 

> 

1 ec: 8 

00 

00 

00 

00 

00 

00 

00 

00 

: <af > 

> 

1 ec!0 

00 

00 

00 

00 

00 

00 

00 

00 

: <bf > 

> 

lecJB 

00 

00 

00 

00 

00 

00 

00 

00 

: <cf > 

> 

1 ee0 

00 

00 

00 

00 

00 

00 

00 

00 

: <df > 

> 

1 eeB 

00 

00 

00 

00 

00 

00 

00 

00 

: <ef> 

> 

1ef0 

00 

00 

00 

00 

00 

00 

00 

00 

: <ff > 

> 

le-FB 

00 

00 

00 

00 

00 

00 

00 

00 

: <0f > 

> 

1-F00 

00 

00 

00 

00 

00 

00 

00 

00 

: < 1 f > 

> 

1f08 

00 

00 

00 

00 

00 

00 

00 

00 

: <2f > 

> 

If 10 

00 

00 

00 

00 

00 

00 

00 

00 

: <3f > 

> 

If 18 

00 

00 

00 

00 

00 

00 

00 

00 

: <4f > 

> 

If 20 

00 

00 

00 

00 

00 

00 

00 

00 

: <5f > 

> 

1 f 28 

00 

00 

00 

00 

00 

00 

00 

00 

: <6f > 

> 

If 30 

00 

00 

00 

00 

00 

00 

00 

00 

: <7f > 

> 

1 f 38 

00 

00 

00 

00 

00 

00 

00 

00 

: <Rf> 

> 

1 f 40 

00 

00 

00 

00 

00 

00 

00 

00 

: <9f > 

> 

1 f 48 

00 

00 

00 

00 

00 

00 

00 

00 

: <af > 

> 

1 f 50 

00 

00 

00 

00 

00 

00 

00 

00 

: <bf > 

> 

1 f 58 

00 

00 

00 

00 

00 

00 

00 

00 

: <cf > 

> 

1 f 60 

00 

00 

00 

89 

8a 

8 b 

8 c 

8d 

: <5f > 

> 

1 f 68 

Re 

Bf 

90 

91 

01 

01 

01 

01 

: <5a> 

> 

1 f 70 

01 

01 

01 

01 

01 

01 

01 

01 

: <7f > 

> 

1 f 78 

01 

01 

01 

01 

01 

01 

00 

00 

: <4e> 

> 

1 f 80 

00 

00 

00 

00 

00 

00 

00 

00 

: <20> 

> 

1 f 88 

00 

00 

00 

00 

00 

00 

00 

00 

: <30> 

> 

If 90 

00 

00 

00 

00 

00 

00 

00 

00 

: <40> 

> 

1 f 98 

00 

00 

00 

00 

00 

00 

00 

00 

: <S0> 

> 

1 f a0 

00 

00 

00 

00 

00 

00 

00 

00 

: <60> 

> 

If aB 

00 

00 

00 

05 

05 

03 

03 

00 

: <0a> 

> 

1 f b0 

05 

00 

00 

00 

05 

00 

00 

00 

: <d5> 

> 

1fb8 

00 

00 

00 

00 

00 

00 

00 

00 

: <90> 

> 

1fc0 

00 

00 

00 

00 

00 

00 

00 

00 

: <a0> 


> 1 f 08 

00 

00 

00 

00 

00 

00 

00 

00 

: <b0> 

> 1 f d 0 

00 

00 

00 

00 

00 

00 

00 

00 

: < c 0 > 

> If dB 

00 

00 

00 

00 

00 

00 

00 

00 

: <d0> 

> 1 f e0 

00 

00 

00 

00 

00 

00 

00 

00 

: <e0> 

> 1 f g 8 

00 

00 

00 

07 

00 

92 

95 

00 

: <80> 

> 1ff0 

Rd 

dl 

43 

8d 

62 

43 

60 

ee 

: <7d> 

> Iff 8 

dl 

43 

ee 

62 

43 

60 

8d 

d0 

: < d e > 

>2000 

43 

Bd 

81 

43 

60 

ff 

ff 

ff 

: <2e> 


PROGRAMMENDF 



Fortsetzung von Seite 37 


ADR 

ADR kann zwar theoretisch Werte von 0 bis 255 an¬ 
nehmen. Damit der Rechner nicht abstürzt, sollten 
aber nur Werte zwischen 16 bis 56 und 79 bis 120 
verwendet werden. 


Verschiebung bei x-Feinposition: 
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Die BASIC-Erweiterung geben Sie ein, indem Sie das 
Programm CHECKMON laden und starten. Anschlie¬ 
ßend gehen Sie mit MONITOR in den Maschinenmo¬ 
nitor Ihres Rechners. Tippen Sie nur die Zeilen ab, 
die am Anfang das Zeichen „>“ enthalten. Was 
rechts ab dem Doppelpunkt erscheint, brauchen Sie 
nicht einzugeben. Die erscheinenden zwei Buchsta¬ 
ben zwischen dem Größer- und Kleinerzeichen die¬ 
nen zur Kontrolle Ihrer Eingabe. Zum Abspeichern 
richten Sie sich nach den Anweisungen im Programm¬ 
vorspann. Nach dem Starten mit RUN kopiert sich 
das Maschinenprogramm in den Bereich von $4000 
bis $4EB8. Die Speicheraufteilung ist die, die sich 
nach einem Aufruf der hochauflösenden Grafik er¬ 
gibt. Der BASIC-Anfang wurde vorverlegt auf $4EBA. 
Nach dem Starten von S&A-BASIC können Sie sich 
von den neuen Möglichkeiten ein Bild machen, in¬ 
dem Sie das Programm S&A-DEMO ausprobieren, 
das einige der neuen BASIC-Befehle nützt. r 
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Verschiebung bei y-Feinposition| 




ZEICHENCREATOR 


Eigene Zeichen 
entwickeln 

auf dem C16 


Mit dem Joystick und menüunterstützt 
entfällt die lästige Rechnerei. Zeichen editieren 
wird komfortabel. Besonders wenn Drehun¬ 
gen, Spiegelungen und weitere Funktionen 
zur Verfügung stehen. 

Mit dem Zeichencreator lassen sich sowohl einfarbige 
als auch Multicolorzeichen komfortabel erstellen und 
editieren. Sie können Zeichen invertieren, in andere 
Zeichen kopieren, scrollen, horizontal und vertikal 
spiegeln, drehen und vieles mehr. 

Der Cursor wird mit den Cursortasten und mit dem 
Joystick in Port 1 beziehungsweise 2 (wählbar, siehe 
Menüpunkt 1) gesteuert. 

Den Zeicheneditor rufen Sie durch Aktivieren des 
zweiten Menüpunktes auf. Alle Funktionen und Ta¬ 
sten werden rechts auf dem Bildschirm angezeigt. 

Den Zeichenmodus können Sie durch Drücken der 
SHIFT- und „±“-Taste verändern: 

Modus 0 = Löschen; 

Modus 1 bis 3 = Punktfarbe 1 bis 3. 

Um ein Zeichen in ein anderes zu kopieren, drücken 
Sie c (1), suchen sich mit „±“ ein Zeichen aus (2) 
und drücken Sie Return (3). Editieren Sie das Zei¬ 
chen (4), drücken Sie erneut c (5) und suchen Sie das 
Zeichen mit „±“ aus, in das das andere Zeichen ko¬ 
piert werden soll (6). Jetzt drücken Sie „F“ (7). 

Falls Sie das Zeichen schon editiert haben, führen Sie 
nur noch Schritt 5 bis 7 aus. 

Wenn Sie Ihre Zeichen in eigenen Programmen benut¬ 
zen wollen, so wählen Sie den Menüpunkt „Zeichen- 
data“. Er sollte aber erst dann angewählt werden, 
nachdem alle Zeichen editiert sind. 

Ab Zeile 8000 entstehen Zeichendata mit Einlese¬ 
programm. Jetzt geben Sie Delete —7000 ein, um nur 
noch das Einleseprogramm und die Data im Spei¬ 
cher zu haben. 

Alles weitere wird im Programm erklärt. Vergessen 
Sie nicht, vor dem ersten RUN abzuspeichem. □ 


ZEICH F: N-CR F A T O R 


1 


1 Fl rem zeichencreator“-----«--clß <gj> 

20 rem ( p) cummodor« weit teain <ho> 

40 rem ( c) hy michael Inden <gh> 

50 rem <pri> 

60 rem <ah> 

70 rem basic v3.5 - <nl> 

80 rem c16/116/plus4 <Ki> 

100 poke55,0:poke56,56:clr <hm> 

110 rem mit 64 kb /eile 100 ersetz 
eri durch 'graphicl,1:clr:graphic0' <ka> 
120 rem färben <am> 

130 <dp> 

140 culor1,1:co.lorß,2:color4,7,5 <cn> 

150 fort-1375to1382:poket,0:next <nk> 

160 : <hl> 

170 rem zeichenkopierrnutine <ga> 

180 : <kd> 

190 fort=0t.o32 : readp : pokel 383-» t., p : 
next <am> 

200 data 169,208,133,209, 169,0.133, 
208,133,210,169,56,133,211,162,8,1 
60,0,177 <bj> 

210 data208,145,210,136,208,249,23 
0,209,230,211,202,208,240,96 <gn> 

220 sys 1383: gosut)3340 <fi> 

230 : <ah> 

240 rem variablen <mc> 

250 : <cp> 

260 mf-0:ino=1:po-1:g — 1:zd 8060:6^1 <la> 

270 p(0) 46:p( 1) “81 : p( 2) “87: p( 3) " 4 

2 < f c > 

280 dimz%(127},d(63) <fb> 

290 mf$( 0) =rn$+’ , normdl"+rf$:mf $( 1} 
=rn$+"multi"+rf$+" " <hi> 

300 : <je> 

310 poke65287,peek(65287}and239 <be> 

320 : <lm> 

330 rem zeichensatzeditor <nn> 

340 : <oe> 

350 rem menue <mh> 

360 : <am> 

370 printcl$c4$b6$"***> zeichencre 
ator c-16 <***"b6$ <ig> 

380 printc4$b$" -====^-^======^=== 

=" <fe> 

390 printt:4$c4$ <im> 

400 printh9$"st;euerung. 

1"c4$ <ci> 

410 printb9$"zeichensatzeditor.... 

2"c4$ <je> 

420 pr intb9$"zeichenda tas. 

3"c4$ < gk> 

430 printb9$"normal/multicolor.... 

4"c4$ <ii> 

440 printb9$ M ende. 

5" <dh> 


450 : <mb> 

460 pr Lntc4$c4$b9$"bi.t te w.ieblen s 
ie [1-5]" <1k> 

470 a$="": getkeya$ <fm> 

480 a=val(a$) <fj> 

490 if a< 1ora>5t;henprint lef l.$( qu$, 4 
): gut o460 <kd> 

500 : < c f> 

510 onagot o540,650,?910,3130,3280 <md> 

520 : <eo> 

530 : <gc> 

540 rem Steuerung <km> 

550 scnclr <di> 

560 printc4$c4$o4$" cursosteuerung 
: normal" <dj> 

570 printc4$c4$" joyst icksteuerung 
: port "po" [+]" <oh> 

580 printo4$c4$" m - "rn$"back to 
menue"rf$ <jf> 

590 ge ta$ <kl> 

600 ifa$="+"thenpo=po+1:ifpo>2t hen 
po=1 < p p > 

610 if a$="m"thengotc»370 <ek> 

620 charl,25,6,str$(po) <ao> 

630 goto590 <dp> 

640 : <dp> 

650 rem zeichensatzedi toi- <lm> 

660 : <gh> 

670 printcl$bk$; <ki> 

680 fort -0to7:print". H"t: ne 

x t < i p > 

690 print"CCCCCCCC"zs$ <mc> 

700 printc:4$"76543210" <ep> 

710 printc4$" code : "using"//////" ; zc : 
poke3562,zc <pe> 

720 print" mode: "mo <bf> 

730 charl,15,0,"funktionstasten:" <io> 

740 charl,15,1,"================" <hh> 

750 charl,15,2,"code * "+re$+"c"+h 
k$ <bo> 

760 charl,15,3,"invert = "+re$+"i" 

+bk$ <ce> 

770 charl,15,4,"back to menue = 
re$+"esc"+hk$ <ap> 

780 charl,15,5,"vertikalspiegeln - 
"+re$+"v"+hk$ <cm> 

790 charl,15,6,"hori.-spiegeln - " 
+re$+"h"+bk$ <bp> 

800 charl,15,7,"breite 1/2 - "+re$ 
+"b"+bk$ <pp> 

810 charl,15,8,"punkt s/l - "+re$+ 
"space/fire"Hbk$ <hk> 

820 charl,15,9,"scroll = "+re$+"s" 

+hk$ <fg> 

B30 charl,15,10,"home - "+re$+"hom 
e"+bk$ <km> 

840 charl,15,11,"elear - "+re$+"cl 
ear"+bk$ <kp> 
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Z F X (X H F N — f : R F A T O R 


850 char 1, 1 5, 12, "dreliung ~ "+re$+" 
u"+bk$ <me> 

660 charl ,1H,13,"alt. Zeichen zuru 
eck — " + rfi$< "n"+hk$ <fa> 

870 char 1,15,14, "zeiohen uebernehm 
• en ~ "+re$+"f"+bk$ <go> 

880 charl ,0, 15, "CKClKXCnnnnnCRCCCC 

ccncccnncnnnnccnnccccc" <jh> 

890 chcirl ,0, 18, "scrol.1 - s + curso 
r up/down/right/left" <od> 

988 charl ,0,20, "dreliung 98/188/270 
= d + 1/2/3" <ob> 

910 charl,0,22,"return zur ausfueh 
rung von drehung und"+b?$ <be> 

928 charl,0,23,"scrol1 druecken" <oi> 

938 gosub?540 <ik> 

940 : <jj> 

950 rein bewegung <bg> 

960 ge ta$: j = joy( po) <ga> 

970 poke65299,56:puke65298,0 <gm> 

980 .ifa$=c3$orj=3thenx=x+b:ifx>8-b 
thenx*0 <üo> 

990 ifa$-c1$nrj-7tbenx-x-b:ifx<0th 
enx-8-h <gi> 

1000 ifa$-c2$or j= 1 l.heny 'y-1 : ify<0t 
heny- 7 <lj> 

1010 ifa$--c4$or j -5theny-y+1 : i.fy>7t 
heny-0 <ef> 

1020 ifa$=he$thenx-0:y=0 <jh> 

1030 ifa$ ol$Lhenx ; 0:y-0:printhe$; 

:fort ai 0io7: print"." : riext <ke> 

1040 i.fa$""h"thengcisub1370 <hi> 

1050 ifa$-"w"f.hengusub1450 <oo> 

1060 ifa$-"i"thengusub1290 <dh> 

1070 if a$~"s" I hengosub 1530 <lg> 

1080 ifd$ "u"t.hengosub1980 <d|>> 

1098 ifmf -1thenl100:e1seifa$="b"th 
enh-b+1:ifb>2thenb-1 <nl> 

1100 ifa$-"c"thengosub2400 < 30 » 

1110 ifa$="n"thengosub2680 <ej> 

1120 ifa$ = "f"l:hengosub2800 <ij> 

1130 ifa$~ym$thenmn=mo+1:ifmo>gthe 
nmo=0 <ad> 

1 140 ifa$=yo$thenmo=mo-1 : ifmo<0the 
nmo-g <af> 

1150 ifa$-chr$( 27)thengoto370 <p]> 

1160 ifa$=" "orj>-127thengoto1230 <me> 
1 170 poke3072+y*40+x , peek( 3072+y*4 
0+x)or128 <mc> 

1180 fort=1to30:next:poke3072+y*40 
+ x,peek(3072 + y*40+x)and 127 <ch> 

1190 chdr1,0,16,"breiteprintstr 
$(b):poke3562,zc <kb> 

1200 printhe$Jeft$(qd$,12)" code:" 
us ing"//##"; zc <oo> 

1218 print" mode: "mo:charl,1,14," 

<shft.[+/-]>" <dj> 

1220 goto960 <fa> 


1230 p1-3072+y*40 +x:p2=3072+y*40+x 
+1 <kj> 

1248 ifb-2andx-=7therigoto960 <oh> 

1250 if b 1 thenpokep 1 , p( mo) :goto960 <il> 

1260 pokepl,p(mo):pokep2,p(mo) <co> 

1270 goto960 <hb> 

1280 : < He > 

1290 rem invert < dj> 

1300 fors=0to7 <hi> 

1310 forz=0to7 <gl> 

1320 ifpeek( 3072+s»40+z) -46tbenpok 
e3072+s*40+z,81:goto 1340 chj> 

1338 ifpeeki3072+s*40+z)=81thenpok 
e3072+s*40+z,46 <im> 

1340 nextzrnexts <fb> 

1350 return <ce> 

1360 : <oe> 

1370 rem horizontal spiegeln <hi> 

1380 fors-0to3 <gi> 

1390 forz=0to7 <ep> 

1400 p1-3072+s*40+z:p2-3072+(7-s)* 

40+z <ce> 

1410 pp 1=peek(p 1) :pokep1,peek(p2): 
pokep2,pp1 <ce> 

1420 nextz:nexts <go> 

1430 return <mf> 

1440 : <if> 

1450 rem wertika[spiegeln <ap> 

1460 fors-0to7 <jc> 

1470 forz=0to3 <gp> 

1480 p1=3072+0*40+7:p2-3072+s*40+7 
-z <hm> 

1490 pp1--peek( pl) :pokepl, peek( p2j : 
pokep2,pp 1 <mo> 

1500 nextz:nexts <ge> 

1510 return < gf > 

1520 : <cf> 

1530 rem scroll <og> 

1540 char1,25,16,"scrol1:" <bj> 

1550 geta$ <mn> 

1560 ifa$=c2$thenchar1,33,16,b6$+l 
ef t$(. q 1 $, 6)+"huch" : sc= 1 < gd> 

1570 ifa$-c4$thenchar1,33,16,b6$+l 
eft$(ql$,6)+"runter":sc=2 <cm> 

1580 ifa$=c3$thenchar1,33,16,b6$+l 
eft$(q1 $,6)+"recht s":sc=3 <md> 

1590 ifa$~c1$thenchar1,33,16,b6$+l 
eft$(q1$,6)+"links":50=4 <gg> 

1600 ifa$-chr$(13)fchengoto1630 <ik> 

1610 goto 1550 <il> 

1620 : <oo> 

1630 onscgosub1660,1740,1820,1900 <gm> 
1640 return <gk> 

1650 : <ck> 

1660 rem hoch-scroll < fg > 

1670 fors=lto7 <gb> 

1680 forz=0to7 <ei> 

1690 fort=0tog <hk> 
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1 7550 IfpeekC 3072+s*40+z) -p( t) thenp 
oke3072+s*40+z-40,p(t):poke3072+s* 

40+z,46 <am> 

1710 nextt:nextzrnexts <ß]> 

1720 return <al> 

1730 : <tnl > 

1740 rem runter-scrol1 <li> 

1750 fors= : 6to0step-1 <p]> 

1760 forz=Hto7 <dm> 

1770 fort.- 0to6 <ff> 

1780 ifpeek(3072+s*40+z)-p(t)thenp 
oke307?+s*40+/+40 > p(t):poke307?+s- 
40+/,46 <cm> 

1790 nextt :next.7rnexts <11> 

1800 refcurn <km> 

1810 : <gm> 

1620 rem rechts-scrol1 <ld> 

1830 ford'-Rtomf <ip> 

1840 fors-0to7:forz=6to0step-1 <ak> 

1850 fort-ltog <jg> 

1860 ifpeekC3072+s*40+z) p{l)thenp 
okö3072+6«40+/+1 f p(t);poke3072+5*4 
0+z,46 <lp> 

1870 nextt, 2 ,a,d <jn> 

1880 refcurn <em> 

1890 : <um> 

1900 rem links-scroll <pg> 

1910 ford«0tomf <fd> 

1920 fors : 0fco7:forz*-1 to7step 1 <pg> 

1930 fort=0tog <lm> 

1940 ifpeekC3072+s*40+z)-p(t)thenp 
oke3072+s*40+z-1,p(t):pnke307?+s*4 
0+z,46 <ko> 

1950 nextt,z,s,d <ei> 

1960 return <on> 

1970 : <kn> 

1980 rem drehung <bf> 

1990 charl,11,16,"drehung:" <cg> 

2000 geta$ <oh> 

2010 ifä$="1"thenchar1,20,16,b3$+c 
1$+c1$+e1$+” 90":dr=1 <ph> 

2020 ifa$="2"thenchar1,20,16,b3$+c 
1$+c1$+c1$+"160":dr=2 <mh> 

2030 ifa$="3"thenchar1,20,16,b3$+c 
1$+c1$+c1$+"270":dr-3 <id> 

2040 ifa$^chr$(13)thengoto2070 <fp> 

2050 goto2000 <li> 

2060 : <gc> 

2070 fors^ßto? <lj> 

2080 furz=Bto7 <ko> 

2090 d(s*8+z)-peek(3072+s*40+z) <np> 
2100 poke3072+s*40+z,46 <pl> 

2110 nextzrnexts <pa> 

2120 : <nk> 

2130 ondrgosub2150,2230,2310 <oa> 

2140 return <fg> 

2150 rem 90 grad <ck> 

2160 fors=0ta7 <bp> 


2170 forz=0to7 <ed> 

2180 p2=3072+(z)*40+7-s <fm> 

2190 fort~0tog <ph> 

2280 ifd(s*8+z)~p(t) U»enpokep2,p( t 

^ < c f > 

2210 nexttrnexfcz:nexts <db> 

2220 return <ph> 

2230 rem 180 grad <ke> 

2240 fors=0to3 <ea> 

2250 forz~0to7 <dl> 

2260 fort~0tog <gj> 

2270 ifd(s*8+z)=p(fc)thenpoke3072+( 
?-s)*40+7-z,p(t) <pl> 

2280 ifd((7-s)*8+7-z)=p( t)thenpoke 
3072+s~40+z,p(t) <il> 

2290 nextt.: nextz : nexts <aj> 

2300 return < jg > 

2310 rem 270 grad <jd> 

2320 fors=0to7 <hi> 

2330 forz=0to? <gi> 

2340 p2=3072+(7-z)*40+s <hp> 

2350 fort~0tog <ap> 

2360 i fd( s*8+ z) =p( t) thenpokep2, p( t 

) <oa> 

2370 nextt:nextzrnexts < jfl > 

2380 return <d:i> 

2390 : <pi> 

2400 rem codewahl <lp> 

2410 : <ca> 

2420 geta$ <be> 

2430 ifa$="+"thenzc=zc+1:ifzc>127t 
henzc-0 <lh> 

2440 ifa$-"-"thenzc= : zc-1 :ifzc<0the 
nzc-127 < m f> 

2450 ifa$="f"thengoto2800 <fg> 

2460 ifa$-chr$(13J then2520 <ig> 

2470 printhe$left$(qd$,12)" "rn$"c 
ode"rf$"r"using"W M ;zc; <pj> 

2480 char1,1,14,b6$+” "+rn$+"[+/-] 

" + rf$ + " ":poke3562,zc <jb> 

2490 goto2429 < p h> 

2500 return <cj> 

2510 : <oj> 

2520 rem Zeichen vergroessern < gd> 

2530 : <bb> 

2540 ad-decC"3800”) <j g > 

2550 furs=0to7 <bh> 

2560 forz=mfto7+mfstepl+mf <cj> 

2570 p1=( peekf ad+zc*8+s)and2~( 7-z) 

) : ifmf -1 thenp2~( peekf ad + zc:*8+s) and 
2*C7-z+1)}:elsep2=p1 <fe> 

2580 p~3072+z+s*40 <hn> 

2590 ifp1<>2~(7-z)thenifmf~0thengo 
to2640:elseifmf=1then2610 <1]> 

2600 if pl ~-2'( 7-z)thenifmf-0thenpok 
ep,81:goto2650:e1se2610 < n d> 

2610 ifpl“1*2“(7-z)andp2~1*2~( 7-z + 

1)thenpokep,81rpokep -1,81:goto2650 <ee> 


48 



ZFICHEN-CREATOR 


~ zv — 


2620 ifp1=1*2“(7-z) andp2 0thenpoke 
p, 87 : poKep-1,87: gut.o2650 <Kp> 

2630 ifp2=1 *2“( 7 - 7 .+ ]) andp 1~0thenpo 
kep, 42 : pokep-1, 42: goto2650 <gp> 

2640 pokep,46:ifmf^1thenpokep-1,46 <am> 
2650 next:next <bp> 

2660 goto2500 <ej> 

2670 : <ck> 

2680 rem altes Zeichen zurueck <en> 

2690 : <fd> 

2700 ,3d“dec( "d000") <ig> 

2710 pokel177,62 <eh> 

2720 fors-0to7 <ng> 

2730 forz=0to7 <lp> 

2740 p={peek(ad+zc*R+s)and2~( 7-z)) <df> 
2750 ifp=0thenchar1,z,s,".":elsech 
ar1,z,s,"Q" <gl> 

2760 nextrnext <jd> 

2770 poke1177,63 <hd> 

2780 return <fl> 

2790 : <bl> 

2800 rem /eichen uehernehmen <me> 

2810: <ec> 

2820 fors=0tü7:p=0 <tui> 

2830 forz~7tomfstep-1-mf <ho> 

2840 p 1 «-3072+2 + 8*40: ifmf-1 thenp2-3 
072+z+s*40-1:elsep2-p1 <jo> 

2850 ifpeek(p1)=81orpeek( p2)“81the 
np r p+2“( 7-z) : ifmf^1 thenp -p + 2“( 7-z + 

1) <pc> 

2860 ifpeek( p 1) -B7orpeek( p2) =87the 
np“p+2*C7-z) < h j > 

2870 i.fpeek( p1)~42orpeek( p2) : 42the 
np“p+2~(7-z+l) <cj> 

2880 next:pokedec("3800")+zc*8+s,p 
:next <fe> 

2890 z%(zc)-1:flag-1:return <oc> 

2900 : <pi> 

2910 rem Zeichen in datas ablügen <ih> 

2920 : <ca> 

2930 ifflag=0thengoto360 <jk> 

2940 k=0:fort=0to127:poke1383+t,z% 

(t):next <kh> 

2950 ifpeek( 1383+k)=1thenad-dec( "3 
800"):zd=zd+10:goto3000:elsek=k+1 <ld> 
2960 ifk<127thengoto2950 <bk> 

2970 goto3080 <eg> 

2980 gosub3340:goto360 <aj> 

2990 : <kn> 

3000 gosub3340:printcl$c4$c4$c4$zd 
"data-k","; <hl> 

3010 fort=0to7 < jn> 

3020 d -peek(ad+k*8+t.):d$-str$( d) <ef> 

30.30 printright$( d$, 1 en( d$) -1) ", 

: next:printc1$" " <ge> 

3040 gosub3120: print"got:o2950"chr$ 

( 1 9) <ce> 

3050 : <cf> 


3060 poke1319,13:poke1320,13:poke2 
39,2:end <kj> 

3070 : <em> 

3080 gosub3340:printcI$c4$c4$c4$zd 
+10”data -1" <ih> 

3090 gosub3120:print"goto29B0”ehr$ 

C19) <ab> 

3100 : <ik> 

3110 poke1319,13:poke1320,13:poke2 
39,2:end < JP > 

3120 print"zd="zd":po="po":k="k+1" 

:dimzXf127):";:return <gk> 

3130 rem normal/multicolor-zeichen <il> 
3140 : <nk> 

3150 scnclr <jm> 

3160 print" aktueller modus : "mf$ 

(mf) <fj> 

3170 print:print <ob> 

3180 print." soll das Zeichen in "r 
n$"in"rf$"ulticolor oder " <ip> 

3190 print." "rn$"n"rf$"ormal erste 
llt werden ?" <oj> 

3200 print:print:print <ha> 

3210 print" QQ = Zeichenfarbe 1 <bf> 

3220 print" WW = Zeichenfarbe 2 <gb> 

3230 print" ** - Zeichenfarbe 3 <de> 

3240 getkeym$ <pc> 

3250 ifm$="m"thenmf=1:g-3:x=2*int( 
x/2):b-2:goto370 <oc> 

3260 ifmf- 1then370:else:mf~0:b-1:g 
=1:goto370 <hi> 

3270 : <np> 

3280 rein ende <ld> 

3290 : <ah> 

3300 end <gb> 

3310 : <cp> 

3320 rem nach spann =============== <do> 

3330 rem * farbcodes/Steuercodes * <hb> 

3340 c4$=chr$(017):rn$=chr$[018) <ac> 

3350 he$=chr$(019):re$=chr$[028) <jk> 

3360 c3$=chr$(029):bk$-chr$(144) <ai> 

3370 c2$=chr$C145):rf$=chr$( 146) <dc> 

3380 cl$-chr$(147):c1$=chr$(157) <ph> 

3390 rem *** zeichensatz/graphik * <kh> 

3400 zs$=chr$( 189) :yrn$ r chr$( 219) <lo> 

3410 yo$=chr$(221) <pe> 

3420 rem ********* Zeichenfolgen * <ka> 

3430 qd$="":qu$~"":q1:forq=1to 
40 ' <ep> 

3440 qd$'-qd$ + c4$ : qu$=qu$ + c2$ <lp> 

3450 ql$=ql$+c1$ <bf> 

3460 nextq:b$=chr$(32):b2$ r b$+b$ <cd> 

3470 b3$=b2$+b$:b6$-h3$+b3$ <en> 

3480 b9$--b6$+b3$:b$=b9$+b$ <dn> 

3490 return <on> 

3500 rem <de> 

8000 rem einleseprogramm <lk> 

8010 : <am> 
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8090 read?. : if z=-Uhenpokn65?9B , 0 : p 
oke65299,56:goto65535 <op> 

R030 Fort'0to? : readd : poke 14336 + z*ö 
+1, d : nf*x t: goto65535 <nb> 

8040 : <ej> 

8050 rem riatas fuer neue Zeichen <pg> 

8060 : . <hb> 

8070 - p--r“o='g~r-r3“m=-m - e r n-d e-~=~" <fg> 



Dies ist kein Kalenderprogramm für das 
Jahr 1988 oder 1989. Das Programm Kalender¬ 
rechnung kennt die Daten vom Jahr 1 bis zum Jahr 
2299. Wer wissen will, wie der Kalender er¬ 
rechnet wird, findet hier die nötigen 
Informationen. 

Warum fängt eigentlich nicht jedes Jahr mit einem 
Sonntag an; warum fallen die Festtage nicht jedes 
Jahr auf den gleichen Wochentag? 

Es liegt am Kalender. An unserem Kalender der 
christlichen Zeitrechnung, wobei das „christlich“ 
wichtig ist. Denn alle gebräuchlichen Kalender sind 
entstanden aus Religion und Naturwissenschaft, aus 
den religiösen Vorstellungen der Menschen. 

Noch heute deutlich wird dieser uralte Zusammen¬ 
hang in der Astrologie, denn die Einteilung des Jah¬ 
res in die zwölf magischen Sternkreiszeichen ist 
letztlich auch nichts anderes als ein Kalender, dessen 
Voraussetzung, nämlich das Eintreten bestimmter 
Sterne in einen Sektor des sichtbaren Himmels zu ei¬ 
nem festen Zeitpunkt, schon längst nicht mehr zu¬ 
trifft. Denn die Bewegungen der Erde, des Sonnen¬ 
systems und unserer Galaxis haben im Laufe der Jahr¬ 
tausende die Konstellationen weit verschoben. 

Der Kalender stimmt nicht mehr. Und das ist etwas, 
das der astrologische Kalender über kurz oder lang 
mit allen anderen gemein hat. Sie müssen immer wie¬ 
der korrigiert werden. Wie das bei unserem eigenen 
Kalender funktioniert, wie er entstanden ist, wie man 
ihn errechnet, das soll liier näher betrachtet werden. 
Dienstag, 25. August 1987. Ein ganz normales Da¬ 
tum. Es besteht aus drei Teilen: dem Tag, nochmals 
unterteilt in Wochentag und Tagesdatum, dem Mo¬ 
nat und dem Jahr. Die einfachste Einheit ist der Tag, 
nämlich eine Umdrehung der Erde um sich selbst. 
Schauen wir als nächstes das Jahr an. Auch da kön¬ 
nen wir mit unseren Sinnen den Ablauf erfahren. Im¬ 
mer wenn es wieder Frühling wird, sind wir ein Jahr 
weiter. Wissenschaftlich also die Zeitspanne, in der die 
Erde einmal die Sonne umkreist. 

Dann der Monat. Er hat den direkten Zusammenhang 
mit den Bewegungen eines Himmelskörpers ein wenig 
verloren. Theoretisch ist ein sogenannter synodischer 
Mondmonat die Zeit, in der der Mond den vollen Pha¬ 
senzyklus vom Neumond zum Vollmond und zurück 
durchläuft. Dieser Mondkalender ist aber schon lange 
bis auf bestimmte Reste nicht mehr im Gebrauch. Ein 
Monat ist für uns einfach die Unterteilung eines Jahres 
in überschaubare, etwa gleichlange Einheiten. 

Dienstag, 25. August 1987. Ein Datum, beruhend auf 


den Bewegungen dreier Himmelskörper; der Erde, des 
Mondes und der Sonne. Und die Religion? Sie spielt 
eine Rolle, und zwar gleich in zweifacher Hinsicht: 
Zum einen gab sie den Anstoß zur Errechnung von Ka¬ 
lendern. Eine Menschheit, die Naturgottheiten verehr¬ 
te, konnte, solange sie als Bauern in Dörfern selbst ab¬ 
hängig von der Natur lebte, ohne festen Kalender aus- 
kommen. Die Göttin der Fruchtbarkeit wurde zur 
Zeit des FrühjahrsVollmondes verehrt, und Frühjahr 
war es, wenn der Schnee schmolz. 

Sobald aber Städte entstanden waren, mit ihrer fort¬ 
geschrittenen Arbeitsteilung, mit der Aufteilung der 
Menschen in Klassen — Sklaven, Bauern, Handwerker 
und Händler, Krieger, Könige und Priesterkönige -, 
da hatte man sich ein Stück von der Natur entfernt. 
Man lebte auch nicht mehr nach einem einheitlichen 
Rhythmus und es wurde notwendig, dem Leben eine 
feste zeitliche Einteilung zu geben, Feiertage festzu¬ 
legen. 

In Mesopotamien und Ägypten entwickelte sich die 
Astronomie und parallel dazu ihre mystisch-magische 
Zwillingsschwester, die Astrologie. Es war nicht nur 
die praktische Notwendigkeit, Himmelserscheinungen 
vorauszuberechnen, um Feiertage festzulegen oder 
den Zeitpunkt des Nilhochwassers zu bestimmen, son¬ 
dern es war natürlich auch beeindruckend für die Mas¬ 
sen, wenn eine Zeremonie abgehalten wurde, der 
Priester den Arm hob und die Sonne sich verfinsterte. 
Sehr früh auch entstand ein Teil unseres Kalenders, 
der noch heute unser aller Leben prägt, die Woche. 
Feiertage kannten die Babylonier, die Ägypter, die 
Griechen und Römer. Es waren die Juden, die diese 
Feiertage in einen festen, sich stetig wiederholenden 
Rhythmus brachten. „Der siebte Tag ist ein Ruhetag, 
dem Herrn, deinem Gott, geweiht.“ (Ex 20,10) 

Die Zehn Gebote haben uns also unseren siebentägi¬ 
gen Wochenrhythmus gebracht. 

Wie sind diese verschiedenen Bestandteile in Einklang 
zu bringen? Schlecht. Denn die Erde umkreist die 
Sonne in 365,24219879 Tagen. Der Phasenzyklus des 
Mondes dauert 29,530589 Tage. Damit kann man im 
täglichen Leben nicht rechnen. Also gibt es in Kalen¬ 
dern Normal- oder Gemeinjahre, und es gibt Jahre, die 
verlängert werden durch das Einschalten von Extrata¬ 
gen. Durch diese Konstruktionen versuchte man, sich 
der tatsächlichen Jahreslänge so weit wie möglich an¬ 
zunähern. 

Unser Kalender beruht auf dem der Römer. Das römi¬ 
sche Jahr hatte ursprünglich zehn Monate, von März 
bis Dezember (decem = 10). Recht früh kamen Januar 
und Februar dazu. Die Länge des Jahres betrug aller¬ 
ding nur 355 Tage. Diese Ungenauigkeit suchte man 
durch ganze Serien von Schalttagen oder Schaltmona¬ 
ten auszugleichen. Eine ungeheuer komplizierte und 
auch politisch sehr wichtige Berechnung, denn in Rom 
amtierten die Beamten einschließlich der Konsuln, die 
die höchste zivile und militärische Gewalt hatten, nur 
ein Jahr. 

Die neuen Jahresbeamten sollten ihr Amt jeweils am 
Jahresanfang an treten, um die zivilen Angelegenheiten 
ordnen zu können, das Heer vorzubereiten und dann 
für die Sommerfeldzüge bereit zu sein. Das konnte na¬ 
türlich nicht gutgehen, wenn das Jahr immer später 
anfing, wenn auch immer öfter die Kompliziertheit 
der Kalenderrechnung ausgenutzt wurde von bestech¬ 
lichen Priestern, die zugunsten der scheidenden Beam¬ 
ten das Jahr verlängerten oder es, falls die neuen 
mehr boten, arg verkürzten. 

So regiert man keine Weltmacht. Und es brauchte 
dann auch einen Diktator, Gaius Iulius Caesar, der 
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dem Kalender reformierte (46 v. Clir.), indem er die 
Länge des Jahres auf 365 Tage festlegte. Alle vier 
Jahre wurde ein Schaltjahr von 366 Tagen eingelegt. 
Das war bereits recht genau, und es ist im wesentli¬ 
chen unser heutiger Kalender. Die Abweichung vom 
tatsächlichen Sonnenjahr betrug in fast 1600 J ahren 
nur zehn Tage. 


DER JULIANISCHE KALENDER 


Dieser auf dem Sonnenjahr basierende julianische 
Kalender wurde dann im Mittelalter mit der jüdisch¬ 
christlichen Siebentagewoche in Einklang gebracht 
und man mußte ihn mit dem Mondumlauf synchroni¬ 
sieren, denn das Osterfest wurde nach dem Mondka¬ 
lender berechnet. Man könnte fragen, ob das so wich¬ 
tig war. Schließlich hätte man doch sagen können, 
Ostern sei jedes Jahr am 10. April. 

Aber das war unmöglich, denn die Religion hatte im 
Mittelalter eine Bedeutung, die wir uns heute nicht 
mehr vorstellen können. Der Glaube bestimmte das 
ganze Leben, jeden Tag. Christus und die Kirche wa¬ 
ren das Zentrum des Denkens. Könige und Adlige 
schenkten für ihr Seelenheil der Kirche, speziell den 
Klöstern, große Besitzungen. Das war kein billiger Ab¬ 
laßhandel, sondern tiefe Überzeugung. 

Im Hochmittelalter machten sich Städte von nur 
20.000 Einwohnern daran, riesige Kathedralen zu 
bauen. Zum Teil mit den Händen schleppten die Bür¬ 
ger die Steine, reiche Kaufleute trugen Balken, karrten 
Sand. Nur aus Rivalität mit der Nachbarstadt baut 
man nicht hundert Jahre lang, sondern man baut zur 
höheren Ehre Gottes. Und wenn das so ist, dann kann 
man natürlich auch nicht einfach das Datum der Auf¬ 
erstehung Christi der Bequemlichkeit halber verschie¬ 
ben. Wenn es heute vielleicht möglich wäre, Ostern 
als einen Gedenktag zu sehen, der ein festes Datum er¬ 
hält, so war es für das Mittelalter selbstverständlich, 
daß man lieber komplizierte Berechnungen durchführt, 
um das Sonnenjahr mit dem Mondjahr zu synchroni¬ 
sieren, als daß man den heiligen Ostertermin falsch 
festlegt. 


DIE GOLDENE ZAHL 


Und so errechnete man den Mondzyklus, der in 19 
julianischen Jahren 235 synodische Mondmonate ent¬ 
hielt. Das erforderte wieder Mondschaltjahre und 
Mondschalttage, war kompliziert und umständlich. 
Aber man hatte einen immer wiederkehrenden 
Rhythmus von 19 Jahren, der die ganze christliche 
Zeitrechnung durchläuft. 

Um die Stellung eines Jahres im Mondzyklus zu be¬ 
stimmen, gibt es die „Goldene Zahl“. Sie wird recht 
einfach ermittelt, indem man zur Jahreszahl Eins ad¬ 
diert, denn der Mondzyklus knüpft an das Jahr 1 v. 
Chr. an, und das Ergebnis durch 19 teilt. Der Rest ist 
die Goldene Zahl. Geht die Rechnung glatt auf, dann 
ist die Goldene Zahl 19. 

Um dies zur Festrechnung zu benutzen, fehlt uns 
noch der Sonnenzyklus. Er dient dazu, das julianische 
Jahr mit der siebentägigen Woche zu verbinden. Neh¬ 
men wir einmal an, das Jahr hätte 364 Tage. Das wä¬ 
ren genau 52 Wochen. Jedes Jahr finge mit dem glei¬ 
chen Tag an, vermutlich einem Sonntag, und wir 
brauchten überhaupt keinen Kalender, weil alles so 
schön regelmäßig wäre. Wenn wir nun ein Jahr von 
365 Tagen annehmen, dann finge zum Beispiel das 
Jahr 1 mit einem Sonntag an, das Jahr 2 mit einem 


Montag, und nach einem siebenjährigen Zyklus wären 
wir wieder beim Sonntag. Weil aber außerdem alle vier 
Jahre ein Schalttag eingelegt wird, so dauert es 4*7=28 
Jahre, bis die Wochentage wieder auf dieselben Mo¬ 
natsdaten fallen. Der Sonnenzyklus ist also 28 Jahre 
lang. . "■> 


ERRECHNEN DER WOCHENTAGE 


Um Wochentage bestimmen zu können, teilte man je¬ 
dem Tag des Jahres einen der Buchstaben von A bis G 
zu. teilte das Jahr also in Wochen und zwar ganz ein¬ 
fach und ein für allemal festgelegt. 1. Januar = A, 

2. = B, 8. Januar wieder = A und so weiter bis zum 
Jahresende. Die Jahre des Sonnenzyklus wurden mit 
dem Buchstaben benannt, den der erste Sonntag im 
Jahr hatte, dem „Sonntagsbuchstaben“. 

Um einen Tag zu bestimmen, sah man in einer Tabelle 
nach, welchen Tagesbuchstaben dieses Datum hatte. 
Das wäre für unseren 25. August „F“. Das Jahr 1987 
hat den Sonntagsbuchstaben ,,D“. „F“ kommt im Al¬ 
phabet zwei Stellen nach ,,D“. Wenn also „D“ ein 
Sonntag ist, dann ist jeder Tag in diesem Jahr ein 
Dienstag. 

Um den Sonntagsbuchstaben des Jahres zu ermitteln, 
mußte man natürlich wissen, an welcher Stelle im Son¬ 
nenzyklus das Jahr stand. Das Jahr 1 des Zyklus ist 
ein Schaltjahr, das mit einem Montag beginnt, so 
auch das Jahr 9 v. Chr. Die Rechnung ist ähnlich wie 
bei der Goldenen Zahl; Jahreszahl plus 9 durch 28. 

Der Rest, oder falls kein Rest bleibt, 28, ist die Zahl 
des Sonnenzyklus, für die man in einer Tabelle den 
Sonntagsbuchstaben suchen konnte. Schaltjahre hat¬ 
ten zwei davon. Der erste galt bis zum 28. Februar, 
dann folgte ein Schalttag. Also verschoben sich die 
Wochentage und es ergab sich ein neuer, fiktiver, er¬ 
ster Sonntag im Jahr. Daher galt vom 1. März an der 
nächste Sonntagsbuchstabe. 


OSTERBERECHNUNG 


Wie berechnet man den Termin des Osterfestes? 
Christus wurde am Rüsttag des Passahfestes gekreu¬ 
zigt, das am Tag des ersten Vollmondes nach Früh¬ 
lingsanfang stattfand. Er stand auf von den Toten am 
dritten Tag, dem ersten Tag der neuen Woche, der des¬ 
halb zum Tag des Herrn wurde, dem Sonntag, und im 
Christentum den Sabbath als wöchentlichen Festtag 
ablöste. 

Im Jahre 325 legte das Konzil von Nikäa fest, daß 
Ostern am ersten Sonntag nach dem Frühjahrsvoll¬ 
mond, der sogenannten Ostergrenze, gefeiert werden 
sollte. Der Frühjahrsbeginn (Frühjahrs-Tag- und Nacht¬ 
gleiche) wurde wegen der Schwierigkeit der astrono¬ 
mischen Berechnung auf den 21. März festgelegt. 

Zur Osterberechnung braucht man also den 28jährigen 
Sonnenzyklus, um den Wochentag, und den 19jährigen 
Mondzyklus, um den Vollmond zu berechnen. Im 6. 
Jahrhundert schuf der römische Abt Dionysius Exi- 
guus aus der Kombination beider den 532jährigen 
Österzyklus und gab in Tabellen für jedes Jahr des 
Mondzyklus die Ostergrenze an. 

Man errechnet also mit Hilfe der Goldenen Zahl die 
Stellung des Jahres im Mondzyklus, schlägt in einer 
Tabelle die Ostergrenze und ihren Tagesbuchstaben 
nach und berechnet dann über den Sonnenzyklus und 
den Sonntagsbuchstaben das Datum des auf die Oster¬ 
grenze folgenden Sonntags. 

Lesen Sie bitte weiter auf Seite 55 
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10 rem k.<ilenc!er-~-~=- -•=='----p4 <od> 

20 rein ( p) comnunloi’R well, team <ho> 

30 rem ======= = ===========•-■-=•- ===-= <ng> 

40 rem (c.) by fwk <kb> 

50 rem wies loch <lf> 

60 rem ho sie v3.5 <orl> 

70 rem plus4 ( 0 I 6 /II 6 + 64k) < ge> 

80 rem drucker optional <eo> 

90 rem (eiligen 120-d) <kn> 

100 rem ========================== <id> 

110 graphiel, 1 : clr:graphic 0 , 1 :gos 
ub4320 <dh> 

120 scnclr: charl, 11 , 11 ,"bitte war 
ten !" <ki> 

130 rem ========================== <np> 

140 rem variable dimensionieren <on> 
150 rem ========================== <nj> 

160 dim mo$( 12 ),ta$(7), mc( 13),sb(2 
8),zs(7),og(7,19) <hl> 

170 dim f 1$( 32) ,f 1( 32) ,f2(32) , f 3( 3 
2),v2(32) <bn> 

180 dim h1$(16),h1(16),h3(16) <ik> 

190 rem ========================== <oh> 

200 rem daia/ei.len <gg> 

210 rem ========================== <en> 

220 rem monaLsnamen = mo$( 12 ) <ec> 

230 rem ==■;=-=======-=-========•===■==== <jc> 

240 data Januar,fehruar,maerz,apri 
l,mai,juni <uk> 

250 data Juli,august,September,okt 
ober,novemher,de/ember <af> 

260 rem <gm> 

270 rem tagesnamen - ta$(7) <gj> 

280 rem ========================== < 1 o> 

290 datasonntag ,111011 tag, d lens tag, mi 
ttwoch <kg> 

300 data donnerst.ag , frei tag, sainsta 
g <ph> 

310 rem ============-=========-==- <hp> 

320 rem monatskonstante - mc(13) <hc> 
330 rem ========================== <mn> 

340 data 0,31,59,90,120,151,181 <df> 
350 data 212,243,273,304,334,365 <nd> 
360 rem ========================== <bn> 

370 rem sonntags 'buchstaben' = s 
b(28) <eg> 

380 rem ========================== <da> 

390 data 76,5,4,3,21,7,6,5,43,2,1, 
7,65,4 <ci> 

400 data 3,2,17,6,5,4,32,1,7,6,54, 

3,2,1 <of> 

410 rem «aaarf*===== ===”======K---= <bb> 

420 rem feste sunntagsbuchstaben - 
f t»( 5) <de> 

430 rem ========================== <im> 

440 data 3,5,7,3,5 <ph> 

450 rein <do> 

460 rem grenzjahre - gj(7) <ln> 


470 rem ========================== <nd> 

480 data 15821004,17000101,1800010 
1,19000101,21000101,22000101,1e20 <eb> 

490 rem ========================== <pm> 

500 rem zyklusstart = zs(7) <if> 

510 rem ========================== <af> 

520 data-9,1567,1691,1787,1883,209 
1,2187 <ml> 

530 rem ========================== <bm> 

540 rem ostergrenzen •= og(7,!9) <df> 
550 rem ========================== <pp> 

560 rem og(1) <mj> 

570 rem ========================== <mo> 

580 data 15,4,23,12,1,20,9,28,17,6 <ck> 
590 data 25,14,3,22,11,0,19,8,27 <bd> 
600 rem ========================== <kin> 

610 rem og(2) <ea> 

620 rem =====================-==== <ob> 

630 data 22,11,0,19,8,27,16,5,24,1 

3 <ii> 
640 data 2,21,10,28,18,7,26,15,4 <ij> 

660 rem og(3+4) <hd> 

670 rem ====•■====================== <fh> 

680 data 23,12,1,20,9,28,17,6,25,1 

4 <ji> 
690 data 3,22,11,0,19,8,27,16,5 <im> 

710 rem og(5+6) <db> 

720 rem <en> 

730 data 24,13,2,21,10,28,18,7,26, 

15 <nf> 

740 data 4,23,12,1,20,9,27,17,6 <bl> 
750 rem =========--======•==--======= <bf> 

760 rem ng(7) <pd> 

770 rem ========================== <gm> 

780 data 25,14,3,22,11,0,19,8,27,1 
6 < e p > 

790 data 5,24,13,2,21,10,28,18,7 <ga> 
800 rem ========================== <bk> 

810 rem datt:n der festtage <bb> 

820 rem ========================== <hp> 

830 data ostern,0,1,3,ostern,1,2,3 
,karfreitag,-3,6,3 <ig> 

840 data christi himmelf.,41,5,5,p 
fingsten,10,1,5 <md> 

850 data pfingsten,1,2,5,fronleich 
nam,10,5,5 <kb> 

860 data 1,1,neuJahr,6,1,hl.drei k 
oenige,1,5,tag der arbeit <kl> 

870 data 17,6,t.d.dtsch.einh.,15,8 
,mariae himmelf. <no> 

880 data 1 , 11 ,allerheiligen,25,12, 
Weihnachten,26,12,Weihnachten,buss 
und bet tag < ja> 

890 rein ========================== <da> 

900 rem data lesen <gc> 

910 rem ========================== <ic> 
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320 for x=1 to 12: read mo$( x) : ne 
<t x <ae> 

930 for x=1 to 7: read ta$(x):next 
x <il> 

940 for x = 1 to 13: read mc(x) : nex 
t x <pi> 

950 for x^l to 28: read sb(x):next 
x <lj> 

960 for x-2 to 6: read fb( x) : next 
x < jn> 

970 for x^l to 7: read g j( x) : next 
x <ma> 

980 for x=1 to 7: read zs( x) : next 
x <ah> 

990 for x=1 to 7 <nm> 

1000 if x-4 then restore 680 <hf> 

1010 if x-6 then restore 730 <jp> 

1020 for y-’l to 19: read og(x,y): 
next y <pc> 

1030 next x <if> 

1040 rem ========================= <op> 

1050 rem textstrings <fm> 

1060 rein ========================= <gb> 

1070 t1$=b4$+b4$+"*** programm Kal 
ender *##"+h4$+b3$ <nd> 

1080 t2$=b6$+"** weiter mit <space 
> #«"+1)6$ <mm> 

1090 t3$-chr$(18)+t2$+chr$(146) <fi> 
1100 t4$-b2$+"festtagskalender des 
Jahres" <pb> 

1110 t5$“"nr. d. Wochentages =" <od> 
1120 t6$ - "tagesdatum"+b5$+b4$+"~" <Kb> 
1130 t7$="nr. d. monats"+b6$+"=" <id> 
1140 tH$ r "Jahr"+b$+b5$ + "-" <fb> 

1150 t9$“ M zusatzeingdben" <ec> 

1160 l.0$=ohr$( 145) <nb> 

1170 11$="": for x =1 to 40: 11$ = 11 

next x <fo> 

1180 12$="": for x=1 to 46: 12$=12 
$+"*": next x <be> 

1200 rem winduwstrings <na> 

1210 rem ========================= <ff> 

1220 w1$-chr$(18)+t1$+chr$( 146)+ch 
r$(27)+"t" <fh> 

1230 w2$“chr$(27)+ "n" <lo> 

1240 w3$=chr$(27)+"t" <ap> 

1250 w4$=chr$(27)+"q":w5$=chi-$( 18) <ho> 
1260 w5$=w5$+ M bezeichnung( max.16) 

:"+b2$+"tag"+b4$+"monat [nr3"+chr$ 

(146}+chr$(27)+"t" <gk> 

1270 rem ========================= <c-m> 

1280 rem druckersteuerung <ej> 

1290 rem ========================= <dl> 

1300 rem master reset <ei> 

1310 p 1 $--chr$( 27} +"§" <do> 

1320 rem linken rand setzen in spa 
lte 10 <cn> 


1330 p2$-chr$(27)+chr$( 108)+chr$( 1 
0) 

1340 rein var. htabs in spalten 20, 
25,36 

1350 p3$-'chr$( 27) +"d"+chr$( 20) +chr 
$(25)+chr$(36}+chr$(0) 

1360 rem vertikale vergroesserung 
ein 

1370 p4$=chr$( 27)+chr$( 126)+chr$[4 
9)+chr$(49) 

1380 rem vertikale vergroesserung 
aus 

1390 p5$-chr$(27}+chr$(126)+chr$(4 
9)+chr$(48) 

1400 rem Sprung zum naechsten htab 
1410 p6$-ohr$(9) 

1430 rem eroeffnungsgrafik 

1440 rem ========================= 

1450 graphic 1,1 

1460 for x — 1 to 100 step 5 

1470 boxl ,160-x,100-x,160+x,50+x 

1480 next x 

1490 boxö,125,85,195,115,,1 
1500 eher 1,16,12,"kalender" 

1510 char1,2,24,12$,1 

1520 getkey x$: graphic 0 

1530 rem ========================= 

1540 rem menue 

1550 rem ========================= 

1560 print w2$;w1$: char 1,5,3, w3$ 
1570 x=0: y-0: f-0: x1=0: x2=0: x5 

= 0 

1580 print "bitte geben sie die nu 
mmer des" 

1590 print "gewoenschten unterprog 
ramins ein:": print: print 
1600 print "Wochentag = 1": print 
1610 print "tagesdatum-- 2": print 
1620 print "monat. ”b5$" = 3": print. 
1630 print "festtage"b2$"= 4": pri 
nt 

1640 print "end"b6$" = 5" 

1650 trap 3760 

1660 getkey x: on x gosub 1720,191 

0,2220,2550,1680 

1670 goto 1560 

1680 print w2$: end 

1690 rem ==========■=====--======== = 

1700 rem Unterprogramm wochentagsu 
che 

1720 scnclr: char1,8,3,w3$ 

1730 print "gesucht: der Wochentag 


<hp> 

<fp> 

<dc> 

<oh> 

<ak> 

<ic> 

< i n > 
<jk> 
<dn> 
<kc> 
<pd> 
<kp> 

<di> 

<ne> 

<mc> 

<jc> 

<on> 

<ag> 

<na> 

<lf> 

<ge> 

<ji> 

<op> 

<ne> 

<jb> 

<jj> 

< jn> 
<ind> 
<ca> 
<dl> 

<go> 

<ij> 

< i p > 

<nn> 

<ca> 

<ga> 

<an> 

<fk> 

<hi> 

<bp> 

<ad> 

<i.a> 
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174R char1,8,5,w3$ 

1750 print t6$: print: print t?$: 
print: print tB$ 


<om> 





















<am> 


<pc> 
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1760 charl,30,5,w3$ 

1770 input t:print:input m:print:i 
nputa < b k > 

17B0 gosub 3020: if f>0 then goto 
3950 <pg> 

1790 gosub 4080 <fk> 

1800 tt~inc(m)+t , < PP > 

1810 gosub 4260 <ac> 

1820 if x5=1 then return <pa> 

1830 charl,8,12,w3$ <ig> 

1840 print "ergebnis:": print <kd> 

1850 print ta$(wz);",";tab(19) t;t 
ab( 23) mo$( in) ; tah( 32) a <kn> 

1060 charl,2,24,t3$: getkey x$ <gd> 
1870 return <di> 

1880 rem =-====*==—=============== <pk> 

1890 rem Unterprogramm tagesdatum <mb> 
1900 rem -=====-“=============■=--== < kd> 

1910 scnclr: char1,0,3,w3$ <je> 

1920 for x~1 to 7: print left$(ta$ 

(x),2); n =";x: print: next x <ok> 

1930 c'harl ,8,3,w3$ <dn> 

1940 print "gesucht: das tagesdatu 
m" <mb> 

1950 charl,6,5,w3$ <mn> 

1960 print t5$: print: print t.7$: 
print: print t8$ <nb> 

1970 char1,30,5,w3$ <fp> 

1980 input wz: print: input m: pri 
nt: input a: t“1 <el> 

1990 gosub 3820: if f>0 then goto 
3950 <kl> 

2000 gosub 4080 <mg> 

2010 tz-wz+sz-1: if tz>7 then t.z~t 
z-7 <hh> 

2020 th=mc(m)+1: th=th-int(th/7)*7 
: if th^0 then th=7 <nd> 

2030 if tz<th then tz=tz+7 <fo> 

2040 th=tz-th+1:x3=1:td(x3) “th:xh- 
mc(3) <kc> 

2050 if xl-2 then mc(3)=mc(3)+1 <ml> 
2060 do uritil mc( m) +td( x3) +6>-mc( m 
+1) <kj> 

2070 * 3 - k 3 + 1: td(x3)=td(x3-1)+7 <mg> 

2080 loop <dm> 

2090 mc(3)=xh <ni> 

2100 charl,8,12,w3$ <ca> 

2110 print "ergebnis:": print <fh> 

2120 z=1 <ia> 

2130 do <jp> 

2140 print ta$(wz);",";tab(19) td( 
z);tab(23) mo$(m);tab(32) a <da> 

2150 z=z+1 <oa> 

2160 loop until z>x3 <ne> 

2170 char1,2,24,t3$: getkey x$ <ni> 

2180 return <kh> 

2190 rem ========================= <eo> 

2200 rem Unterprogramm monat <ea> 


2210 rem 

2220 scnclr: char1,0,3,w3$ 

2230 for x ; -1 to 7: print lef t$(. ta$ 

(x),2)x: print: next x <kf> 

2240 char1,8,3,w3$ <db> 

2250 print "gesucht.: der monat" <pn> 

2268 char1,8,5,w3$ <fi> 

2270 print t5$: print: print t6$: 
print: print t8$ <ef> 

2280 char1,30,5,w3$ <dn> 

2290 input wz: print: input t: pri 
nt: input a: m=1 <na> 

2300 gosub 3820: if f>0 then goto 
3950 <eg> 

2310 gosub 4080 <ln> 

2320 x3=0 <1e> 

2330 for m=1 to 12 <fp> 

2340 if len(str$(x2))>2 and m-2 th 
en xh=mc(3): mc(3)-mo(3)+1 <ic> 

2350 if len(str$(x2))>2 and m-3 th 
en sz=wal(mid$(str$(x2),3,1)): mc( 

3)=xh <gf> 

2360 tz=wz+sz-1: if tz>7 then tz~t. 
z~7 <pk> 

2370 th-mc(m)+t: if th>mc(m+l) the 
n goto 2400 <lc> 

2380 th=th-int(th/7)*7:if th-0 the 
n th=7 <hk> 

2390 if th=tz then x3=x3+1: mh(x3) 

-m <jc> 

2400 next m <pf> 

2410 charl,8,12,w3$ <fp> 

2420 print "ergebnis:": print. <bc> 

2430 if x3<>0 then goto 2460 <ap> 

2440 print "im jahr";a;"gibt es ke 
inen" <hg> 

2450 print ta$(wz);", den";t;".": 
goto 2490 <me> 

2460 for z=1 to x3 <jd> 

2470 print t.a$( wz) ; " , " ; tab( 19) t;t 
ab(23) mo$(mh(z));tab(32) a <il> 

2480 next z <ef> 

2490 char1,2,24,t3$: getkey x$ <ad> 

2500 return <cj> 

2510 rem <el> 

2520 rem Unterprogramm festkalende 
r <fn> 

2530 rem gesetzliche feiertage der 
brd <oe> 

2540 rem ==---====== = --==-===.-==-=== <ej> 

2550 scnclr: char1,8,3,w3$ <ck> 

2560 print "gesucht: festkalender" 
:print <ic> 

2570 print "rechenzeit ca. 10-45 s 
ec" <cb> 

2580 char1,8,7,w3$ <il> 

2590 print t8$;:input a: print <ij> 

2600 input "zusatzeingaben Cj/n)"; 
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z1$: print <co> 

2610 print "druoker oder" <11> 

2620 print "bildschirm"b5$"(d/b)"; 
:inputz2$ <dj> 

2630 t ~1 : m=1 <bj> 

2640 gosub 3820: if f>0 then goto 
3950 <ch> 

2650 xS=1: x-0 <gf> 

2660 if z1$="n" then goto 2840 <ea> 

2670 rem : <di> 

2680 rem Zusatzeingaben <oi> 

2690 rem : <il> 

2700 print w2$;t1$:print t9$;a:pri 
nt w5$ < gg > 

2710 do: x=x+1 <el> 

2720 print.b2$; : inputh1$( x) <dh> 

2730 print t.0$,,: input hl(x) <ce> 

2740 print. t0$,,,: input h3( x) : pr 
int <do> 

2750 h 1 $(x)-left$(h1$(x),16) <fl> 

2760 t=h1(x): m=h3(x): gosub 3820 <ki> 

2770 if f>0 then gosub 3950 < oj> 

2780 ifx~16thenprint"keine weitere 
n eingriben moeglich":char1,2,24,t3 
$:getkey x$:exit <dm> 

2790 input "weitere eingaben (j/n) 

";z3$ <je> 

2800 if z3$<>"j" then nxit <ag> 

2810 print t0$;w4$;t0$;i1$ <nf> 

2820 Joop <ak> 

2830 zß^x+lö <ag> 

2840 poke 65286,11 <ln> 

2850 for x=17 to z6 <fo> 

2860 f 1$( x)-h1$( x-16) : f1(x)=h1(x- 
16): f3(x)-h3(x-16) <ci> 

2870 tf 1C x) : m=f3[x): gosub 3820 <hb> 

2880 if f=5 then f1(x)=1: f3(x)“3: 
f-0: t-fl(x): m=f3(x) <jp> 

2890 gosub 1790 <hk> 

2900 f2(x)~wz <db> 

2910 next x <aa> 

2920 rem : <ce> 

2930 rem bewegliche feste <go> 

2940 rem : <hh> 

2950 restore 830: m-3: gosub 4080 <li> 
2960 gz=(ö+1)-int((a+1)/19)* 19 <af> 

2970 tt---mc( 3) +21+og( x4,gz) <lc> 

2980 gosub 4260 <mn> 

2990 for x6~1 to 7 <fm> 

3000 read f 1 $( x6) , y, f 2( x6) , y 1 <bc> 

3010 tt=tt+y: t=tt-mc(y1): m~yl <bf> 

3020 if x6=1 then t-8-wz+t <fk> 

3030 if t+mc(y1)>mc( y1 + 1) then m=y 
1 + 1: t — t—C mc:( y 1 + 1) -incC y 1) ) <pc> 

3040 if xß^l then tt-t+mc(m) <ol> 

3050 f3(x6)-m: f1(x6)=t <nc> 

3060 next x6 <om> 

3070 rem : <hn> 


— £\- — 


3080 rem feste feiertags <of> 

3090 rem : <nb> 

3100 for x6-8 to 15 <ki> 

3110 read t,m,f1$(x6) <hg> 

3120 f1(x6)=t: f3(x6)-m <df> 

3130 gosub 1790 <ji> 

3140 f2(x6)~wz <fa> 

3150 next x6 <lp> 

3160 rem : ' <oi> 

3170 rem buss und bettag <hl> 

3180 rem : <di> 

3190 x6~16: tt=mc(12)+25: gosub 42 
60 <cb> 

3200 if wz~1 then wz=8 <lk> 

3210 tt=tt-wz-31: t=tt-mc(11) <lo> 

3220 read f1$(x6): f1(x6)=t: f2(x6 
) =4: f 3( x6) ■= 11 <mh> 

3230 rem : <ad> 

3240 rem sortieren <kd> 

3250 rem : <fe> 

3260 if z6<x6 then z6=x6 <jk> 

3270 for x=1 to z6 <lm> 

3280 mm$~str$(f3(x)): tt$=*0"+mid$ 

(str$(f1(x)),2) <kh> 

3290 11$ -right$(11$,2): v2$=mm$+tt 
$ <ib> 

3300 v2(x)~val(v2$) <cj> 

3310 next x < eg > 

3320 y~0 <bi> 

3330 for x~1 to (z6-1) <pf> 

3340 if v2(x+1)>=v2(x) then goto 3 
410 <kj> 

3350 c=f 1 ( x) : f1(x)=f1(x+1) : f1(x + 

1)=c <ao> 

3360 c-f2(x): f2(x)=f2(x+1): f2(x+ 

1)=c <bd> 

3370 c-f3(x): f3(x)-f3(x+1): f3(x+ 

1)=c <ck> 

3380 c$-f1$(x): f1$(x)=f1$(x+1): f 
1$(x+1)=c$ <ia> 

3390 c=v2(x): v2(x)-v2(x+1): v2(x+ 

1)=c <np> 

3400 y=1 <kc> 

3410 next x <ni> 

3420 if y>0 then goto 3320 <eo> 

3430 poke 65286,27 <ce> 

3440 if z2$="d" then goto 3610 <ki> 

3450 rem : <hh> 

3460 rem ausgabe bildschirm <bb> 

3470 rem : <mh> 

3480 print w2$;w1$: print t4$;a: p 
rint <ah> 

3490 for x=1 to z6 <fb> 

3500 f3$-mo$(f3(x)): f2$-ta$(f2(x) 

) <od> 

3510 if f1$(x)-f1$(x-1) then goto 
3530 <kk> 

3520 print f1$(x); <ee> 
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3530 printtab(16)f1(x);t,ab(30) f 3$; 
tab(30)f2$ <ab> 

3540 if x=16 and z6>16 then charl, 

2,24,t3$: getkey x$: print. w2$;w1$ 

: print t4$;a: print <on> 

3550 next x <ak> 

3560 charl,2,24,t3$: getkey x$ <hm> 

3S70 return <in> 

3580 rem : <hn> 

3590 rem ausgabe drucker <lm> 

3600 rem : <nb> 

3610 open1,4,7: cmdl <gj> 

3620 print p1$;p2$;p3$;12$: print <cp> 

3630 print p4$;a;p5$: print <ko> 

3640 for x=1 to z6 <gk> 

3650 f3$~mo$(f 3(x)): f2$-ta$(f2(x) 

) <pc> 

3660 if f 1$( x)=f 1$( x-1) then goto 
3680 <hl> 

3670 print f1$(x); <jg> 

3680 print p6$;f1(x);p6$;f3$;p6$;f 
2 $ <bf> 

3690 next x <dm> 

3700 print: print 12$ <pf> 

3710 print p1$: print#1: closei <pm> 

3720 return <11> 

3730 rem ========================= <an> 

3740 rem subroutine trap-resume <nc> 

3750 rem ========================= <hi> 

3760 charl,8,14,w3$ <nm> 

3770 print "sie haben einen Fehler 
gemacht!” <fe> 

3780 charl,2,24,t3$: getkey x$: re 
sume 1560 <ei> 

3790 rein ========================= <jp> 

3800 rem subroutine datumspruefurig <dp> 
3810 rem ========================= <gm> 

3020 if a-0 then f=1 <lc> 

3830 if a<0 or a>2299 then f=2 <pb> 
3840 if t<-0 or t>31 then f=3 <bp> 

3850 if m<-0 or m>12 then f=5: got 
o 3910 <oh> 

3860 if a>=1600 and right$(str$(a) 

,2)-"00" and a/400-int(a/400) and 
m=2 then goto 3890 < ji > 

3870 if right$(str$(a),2)<>"00" an 
d a/4-int(a/4) and m^2 then goto 3 
890 <mj> 

3880 if t>mc( m+1) -inc( m) then f=5 <mm> 
3898 if t>(mcCm+1)-mc(m)+1) then f 
=3 <nn> 

3900 if a=1582 and m^10 and t>4 an 
d t< 15 then f=4 <jh> 

3910 return <di> 

3920 rem ========================= <pk> 

3930 rem subroutine fehlerangabe <np> 
3940 rem ========================= <kd> 

3950 charl,8,14,w3$ <ep> 


3960 on f goto 3970,3980,3990,4000 
,3990 <li> 

3970 print "das Jahr 'null' gibt e 
s nicht!": goto 4020 <cn> 

3980 print. "datum nicht im program 
mhereich!": goto 4020 <ph> 

3990 print "dieses datum gibt es n 
Loht!": goto 4020 <ng> 

4000 print "kalenderumstellung 
print <ec> 

4010 print "dieses datum gibt es n 
icht!" <fa> 

4020 charl,2,24,t3$: getkey x$: f= 

0 <ko> 

4030 if x5= 1 then print w2$;w1$;t.9 
$;a: print w5$: x=x-1 : f=0: return <inb> 

4040 goto 1560 <hm> 

4050 rem ========================= <nf> 

4060 rem subroutine sonntags'buchs 
tabe' <il> 

4070 rem ========================= <ej> 

4080 mm$-"0"+mid$Cstr$( m),2) <gb> 

4090 tt$-”0"+mid$(str$(t),2) <ff> 

4100 v 1 $- ; str$( a) +right$( mm$, 2) +rig 
ht$( 11 $, 2 ) <da> 

4110 x4 0 <ai> 

4120 do: x4“x4+1 <ch> 

4130 if val(v 1$)<gj(x4) then exit <nd> 
4140 if a<>1582 and a»val(left$(st 
r$C g j( x4)) , 5)) then sz«fb( x4) : x4-- 
x4+1: goto 4220 <bc> 

4150 loop <hi> 

4160 r=a-/s(x4) <if> 

4170 sz-r-intf r/28)*28 <ci> 

41B0 if sz-0 then sz=28 <ha> 

4190 sz-sb(sz): x2-sz: if len(str$ 
(sz))<=2 then goto 4220 <ib> 

4200 if m<3 then x1=2: eise x1=3 <11> 

4210 sz=wal(mid$(str$(sz),x1,1)) <ah> 
4220 return <kh> 

4230 rem ========================= <eo> 

4240 rem subroutine tages 'buchstab 
e' <ee> 

4250 rem =================== ====== <pc> 

4260 tz-tt-int(tt/7)*7 <ch> 

4270 if tz“0 then tz=7 <lo> 

4280 if tz<sz then wz=tz+7: eise w 
z^tz < fib > 

4290 wz=wz-sz+1 <di> 

4300 return <eh> 

4310 rem nachspann--===--===-=--== <pe> 
4320 b$~chr$( 32) : b2$=^b$+b$ <ef> 

4330 b3$=b2$+b$:b4$~b3$+b$ <od> 

4340 b5$=b4$+b$:b6$-b5$+b$ <fk> 

4350 b$--b5$+b5$ : return <gb> 

4360 rem ========================= <ma> 

4370 rem 60671 bytes memory < JP > 

4380 rem 11788 bytes program <fg> 
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4390 

rem 

00427 

b y t e s 

variables 

<dd> 

4400 

rem 

07431 

by tes 

arrays 

<na> 

4410 

rem 

01786 

bytes 

strings 

<bj> 

4470 

i-ern 

12288 

by tes 

graphic 

<lj> 

4430 

4440 

rem 

rem 

32451 

bytes 

free (0) 

<pd> 

<ha> 



Fortsetzung von Seite 49 


DER GREGORIANISCHE KALENDER 


So weit, so gut. Nur geschah es jetzt, daß durch die 
verbliebene Ungenauigkeit des julianischen Kalenders 
im Laufe der Jahrhunderte eine immer stärkere Ab¬ 
weichung vom Sonnenjahr eintrat. Im 16. Jahrhundert 
betrug sie bereits zehn Tage. Zwar ist das nicht viel, 
und ob das Frühjahr zehn Tage eher oder später an¬ 
fängt, merkt bei unserem Wetter niemand. 

Was aber sehr unangenehm war für eine religiöse Zeit, 
das war die Tatsache, daß offensichtlich der Termin 
des Osterfestes nicht mehr stimmte. Berechnet wurde 
es nach der Ostertafel des Dionysius. Tatsächlich aber 
geschah es, daß der Frühjahrsvollmond kam und ging, 
und Ostern wurde nicht gefeiert. Und hatte 46 v. Chr. 
Cäsar den Kalender wegen der Amtsjahre der römi¬ 
schen Beamten reformiert, so tat das jetzt im Jahre 
1582 der Papst Gregor XIII., hauptsächlich wegen 
des Osterfestes. 

Seine Reform korrigierte die im Lauf der Jahrhunder¬ 
te entstandenen Ungenauigkeiten, indem man zehn 
Tage ausfallen ließ. Auf Donnerstag, den 4. Oktober 
1582, folgte Freitag, der 15. Oktober 1582. Ferner 
wurde zur Verbesserung des Kalenders die Schaltregel 
geändert. Waren bisher alle durch vier teilbaren Jahre 
Schaltjahre, so wurde jetzt festgelegt, daß Säkularjah¬ 
re, also die, die mit zwei Nullen enden, nicht durch 
vier, sondern durch vierhundert teilbar sein müssen, 
um Schaltjahre zu sein. 

Das Jahr 1600 war also ein Schaltjahr, 1900 nicht. Da¬ 
durch fielen in 400 Jahren drei Tage aus, der Kalen¬ 
der wurde genauer. Weiter änderte man die Berech¬ 
nung der Ostergrenzen, die jetzt komplizierter wurden, 
aber besser den Gestirnbewegungen angepaßt sind. 


DAS PROGRAMM „KALENDER" 


Das Programm „Kalender“ arbeitet für die gesamte 
Dauer der christlichen Zeitrechnung. Das heißt, es be¬ 
rücksichtigt sowohl den julianischen als auch den gre¬ 
gorianischen Kalender. Es beginnt mit Datazeilen, von 
denen die ersten nicht erläutert werden müssen. 

Die Monatskonstanten geben die bis zum Beginn des 
Monats vergangenen Tage an. Das ist wichtig für die 
Berechnung des Tagesdatums aus Sonntags- und Ta¬ 
gesbuchstaben, denn die Monate haben bekanntlich 
verschiedene Längen. Die Sonntagsbuchstaben ent¬ 
sprechen dem Sonnenzyklus, sind aber zur Berech¬ 
nung durch Ziffern ersetzt. 

Zur Vereinfachung wurden den Säkularjahren, die 
keine Schaltjahre sind, ihre Sonntagsbuchstaben fest 
als Data zugeteilt. Natürlich verschiebt sich durch die¬ 
se Unregelmäßigkeit der Sonnenzyklus, so daß für die 
Zeit bis zur nächsten Unregelmäßigkeit ein neues 
Startjahr für die Berechnung der Sonnenzykluszahl 
festgelegt werden muß. 


Es folgen die Ostergrenzen, die im 19jährigen Mond¬ 
zyklus für sieben verschiedene Rechnungsperioden 
vom Jahr 1 bis 2299 den Termin des Ostervollmon¬ 
des angeben — nicht als Datum, sondern als Abstand 
zum 21. März. 

Zu den Zeilen 1200 bis 1260: Das Programm „Kalen¬ 
der“ verzichtet bis auf „t0$“ in Zeile 1160 auf Cursor¬ 
steuerung der Bildschirmausgabe und benutzt statt 
dessen die Fähigkeit des CI 6 und Plus4, Bildschirm¬ 
fenster zu definieren. 

Die folgenden Strings zur Druckersteuerung beziehen 
sich auf den Citizen 120-D im Epson-Modus, müßten 
also mit den meisten Druckern kompatibel sein. 

Wenn nicht, können sie durch die beigefügten Angaben 
leicht angepaßt werden. Ist das Programm geladen und 
gestartet, dann läuft nach kurzer Wartezeit die Eröff¬ 
nungsgrafik. 

Ein Tastendruck bringt uns in das Menü mit seinen 
vier Punkten. Der erste Punkt, Wochentag, dürfte klar 
sein. Zu jedem beliebigen Datum der christlichen Zeit¬ 
rechnung bis zum Jahr 2299 rechnet das Programm 
den richtigen Wochentag aus. 

Der zweite Punkt, Tagesdatum, rechnet für einen gege¬ 
benen Wochentag, Monat und Jahr die möglichen Da¬ 
ten aus. Ein Beispiel: Ihre Oma schwärmt immer da¬ 
von, wie der Opa und sie sich am ersten Freitag im 
Mai 1948 kennengelernt haben. Benutzen Sie Menü¬ 
punkt 2 und schenken Sie der Oma am 7. Mai Blüm¬ 
chen. Der dritte Punkt ist im Ergebnis ähnlich, nur 
gibt er nach Eingabe von Wochentag, Tagesdatum und 
Jahr die möglichen Monate an. Beispiel: Einen Freitag, 
den 13., gab es im Jahr 1189 im Januar und Oktober. 
Zum vierten Punkt, Festtage: Dieses Unterprogramm 
gibt für ein beliebiges Jahr die gesetzlichen Feiertage 
der Bundesrepublik Deutschland mit Datum und Wo¬ 
chentag an. Zusätzlich können vom Benutzer bis zu 
16 weitere Daten eingegeben werden, zum Beispiel Ge¬ 
burtstage. Diese werden mit den gesetzlichen Feierta¬ 
gen zusammen berechnet, und ein nach Daten sortier¬ 
ter Festkalender des Jahres wird wahlweise auf dem 
Bildschirm oder auf einem Drucker ausgegeben. Die 
Zusatzdaten werden programmintern gespeichert, so 
daß sie nicht für jedes neu abgefragte Jahr gesondert 
eingegeben werden müssen. 

Das Programm rechnet nach dej- oben beschriebenen 
mittelalterlichen Kalenderrechnung. Nach Eingabe 
wird zunächst jedes Datum geprüft (kein 54. April 
möglich), dann wird der Sonntagsbuchstabe errechnet, 
anschließend je nach Unterprogramm Wochentag oder 
Tagesdatum. 

Die Osterrechnung erfolgt der einheitlichen Handha¬ 
bung wegen ebenfalls nach dieser alten Methode der 
Goldenen Zahl und der Ostergrenzen. Wer möchte^ 
kann sich einmal an einem Programm für die Gauss’ 
sehe Osterrechnung versuchen; sie erfordert nicht so- 
viele Data, hat aber nicht den altertümlichen Reiz der 
Sonnen- und Mondzyklen. 

Zur genaueren Information über die Kalenderrech¬ 
nung können folgende Bücher empfohlen werden: 
Joachim Ekrutt: Der Kalender im Wandel der Zeiten, 
Stuttgart: Franckh’sche Verlagshandlung, 1972, 
Kosmos Bibliothek Bd. 274. 

Für Leute, die recht genau über mittelalterliche Daten 
Bescheid wissen wollen: 

Hermann Grotefend: Taschenbuch der Zeitrechnung 
des deutschen Mittelalters und der Neuzeit, Hanno¬ 
ver: Hahnsche Buchhandlung, 12. Auflage, 1982. 

fwk □ 
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MASCHINENSPRACHE 


Black Beauty: 
In den „Kleinen” 
steckt mehr, 
als Commodore 
eingebaut hat 

Mehr als eine bloße Übersicht über Befehlssatz, Adressierungsarten 
und Flagbeeinflussungen bietet diese Einführung. Im Vordergrund stehen 
Übung und Praxis. Dafür sorgt das Programm CPU-TRAINER, mit 
dem CPU-Befehle direkt eingegeben und auf ihre Wirkung 
beobachtet werden können. 


Viele Probleme lassen sich in BASIC 
nur unzureichend lösen. Oft ist BA¬ 
SIC zu langsam oder total ungeeig¬ 
net. Der direkte Weg, der Griff zur 
Maschinensprache, ist vielen noch 
versperrt, da die nötigen Informa¬ 
tionen fehlen. Sollte dem einen 
oder anderen der Befehlssatz der 
CPU-7501 oder 6502 bereits be¬ 
kannt sein, so hilft dieses herzlich 
wenig, wenn er das Betriebssystem 
des Rechners nicht kennt. 

Ohne die Kenntnis wichtiger I/O- 
Adressen und -Routinen läßt sich 
nicht einmal ein einziges Zeichen 
von der Tastatur einiesen oder auf 
den Bildschirm bringen. Wir bespre¬ 
chen daher auch die wichtigsten 
Kemel-Routinen, das Port-Register 
und einige interessante Register des 
TED-Chips, der für Bild und Ton 
zuständig ist. 

Sie lernen, wie ein Ein- oder Ausga¬ 
bekanal definiert werden kann, wie 
Sie Zeichen auf den Drucker sen¬ 
den, wie Sie etwas auf Kassette oder 
Diskette ausgeben können, und wie 
Sie sie auch wieder von dort einiesen. 
Wenn die CPU auch keine Multipli¬ 
kation kennt, mit einem bestimm¬ 
ten Algorithmus läßt sie sich ver¬ 
wirklichen. Mit dem TEDMON, 
dem eingebauten Maschinenmonitor, 
können wir kleine Programme schrei¬ 
ben. Vom CPU-TRAINER aus kön¬ 
nen wir sie aufrufen und deren Er¬ 
gebnisse kontrollieren. 

Wie Sie sehen, ist der Rahmen unse¬ 
rer Einführung sehr weit gespannt. 
Wenn Sie diese gewissenhaft durch¬ 
arbeiten, sind Sie bereits in der La¬ 


ge, selbst kleine Maschinenprogram¬ 
me zu verfassen. In den folgenden 
C16-P4-SPECIAL-Heften werden 
wir Ihnen, da Sie jetzt die Grundla¬ 
gen dafür bekommen, erstaunliche 
Tips und Tricks zeigen, mit denen 
Sie das Betriebssystem des Rechners 
nach Ihrem Gutdünken manipulie¬ 
ren können. Ein Druckerpufter, ei¬ 
ne interruptgesteuerte Uhr oder ein 
nichtblinkender Cursor sind dann 
nicht mehr schwer zu programmie¬ 
ren. 

I. DER CPU-TRAINER 

Dieses Programm wird uns durch 
unseren ganzen Einführungskurs be¬ 
gleiten. Es ermöglicht die Direkt¬ 
eingabe von CPU-Befehlen. 

Das Programm besitzt einen Maschi¬ 
nensprache- und einen BASIC-Teil. 

In Zeile 100 wird das BASIC-Ende 
auf die Adresse $3000 herabgesetzt. 
Ab dieser Adresse können wir uns 
im Hauptspeicher unseres Rechners 
austoben. Der in den DA TA-Zeilen 
130 bis 320 abgelegte Maschinenteil 
wird durch die Zeilen 110 und 120 
im Bereich von $065E bis S06D2 ab¬ 
gelegt. Er enthält am Anfang die 
Routine zur Übernahme der Regi¬ 
sterinhalte in die CPU, zur Ausfüh¬ 
rung des CPU-Befehles und zum Zu¬ 
rückschreiben der CPU-Register in 
die dafür vorgesehenen Speicher¬ 
stellen. 

Die restlichen Routinen sorgen für 
die Sonderbehandlung der in Zeile 
1260 vermerkten Befehle. In Zeile 
330 werden die für die Registerinhal¬ 


te reservierten Speicherstellen mit 
den Inhalten der CPU-Register oder 
mit dem Wert 1 27 initialisiert. 

Ab Zeile 370 beginnt der eigentli¬ 
che BASIC-Teil. Es werden Varia¬ 
blen, die für die Bildschirmausgabe 
wichtig sind, die entsprechenden In¬ 
halte zugewiesen. Interessant sind 
liier die Zeile 480 und 490, durch 
die die Inhalte der Variablen A$(0) 
bis A$(6) in Zeile 380 bis 440 um¬ 
gewandelt werden. 

Die auf jedem Drucker darstellba¬ 
ren Zeichen 0 und a bis j werden 
durch die in den DA TA-Zeilen 450 
und 460 vermerkten Codes ersetzt, 
die nachher auf dem Bildschirm er¬ 
scheinen sollen. 

Der Bildschirmaufbau — Zeile 570 
bis 630 — begnügt sich mit wenig 
Programmzeilen, da geschickt auf 
die Bildschirmvariablen und Unter¬ 
programme zurückgegriffen wird. 

Die Eingabe in den Zeilen 680 bis 
760 wurde nicht durch einen INPUT- 
Befehl realisiert. 

Auffallend ist, daß auch kein GET- 
oder PRINT-Befehl im Programm 
vorkommt. Anstelle der Befehle, die 
auf ein definiertes Ein- oder Ausgabe¬ 
gerät zugreifen, oder dieses umdefi¬ 
nieren, verwendeten wir neben dem 
CHAR-Befehl die SYS-Aufrufe 
SYS60381 und SYS56393. SYS 
60381 ersetzt den GET-Befehl. Das 
Zeichen wird unabhängig vom aktuel¬ 
len Eingabegerät immer von der Ta¬ 
statur eingelesen. Das abgefragte Zei¬ 
chen wird von der Systemroutine im 
Akku abgelegt. 

Nach dem SYS-Aufruf befindet es 
sich daher in Speicherstelle 2034, 
aus der wir es mit einem PEEK her¬ 
vorholen können. Statt PRINT ver¬ 
wendeten wir SYS56393. Es kann 
nur ein einziges Zeichen ausgegeben 
werden. Dessen ASCII-Wert ist vor¬ 
her mit einem POKE in die Speicher¬ 
stelle 2034 zu bringen. 

Der SYS-Aufruf lädt den Akku mit 
diesem Wert, die Systemroutine gibt 
das Zeichen unabhängig vom aktuel¬ 
len Eingabegerät immer auf den 
Bildschirm aus. So wurde dafür Sor¬ 
ge getragen, daß auch bei umdefinier¬ 
ten Ein- und Ausgabegeräten unsere 
Bildschirmausgaben immer auf den 
Bildschirm gelangen und auch bei 
umdefiniertem Eingabegerät die Ab¬ 
frage unserer Eingabe funktioniert. 
Nach einer Eingabe definieren wir 
uns in den Zeilen 830 und 840 ein 
leeres Fenster. Bildschirmausgaben, 
die wir durch ein Maschinenpro¬ 
gramm veranlassen, sollen die Dar¬ 
stellung der CPU-Register nicht be¬ 
einflussen. Beim Sprung in den Mo¬ 
nitor mit BRK soll uns der ganze 
Bildschirm zur Verfügung stehen 
(Zeile 820). 
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Nach der Befehlsabarbeitung sorgte 
Zeile 680 wieder für den neuen Bild¬ 
schirmaufbau. In Zeile 850 wird 
durch den GOSUB-Befehl die ei¬ 
gentliche Abarbeitung veranlaßt. In 
Zeile 1180 findet eine Verzweigung 
statt, wenn es sich nicht um einen 
Ein-Byte-Befehl handelt. Die Unter¬ 
routine in Zeile 1050 untersucht, ob 
ein existierender Befehl vorliegt, 
und übergibt in diesem Falle einen 
weiter zu verarbeitenden Wert. 

Dieses ist im Normalfall der Opera¬ 
tionscode für die CPU oder bei der 
Sonderbehandlung in Zeile 1240 bis 
1260 die Adresse der anzuspringen¬ 
den Routine. In Zeile 1200 wird der 
Operationscode an die richtige Stel¬ 
le in das Maschinenroutine einge¬ 
fügt, und nachher die Routine mit 
SYS 1630 aufgerufen. Da für den 
Operationscode drei Byte reserviert 
sind, werden die verbleibenden zwei 
Stellen mit dem NOP-Code gefüllt, 
der die CPU zu keiner Operation ver¬ 
anlaßt. 

In Zeile 1380 bei den Zwei-Byte-Be- 
fehlen folgt dem Operationscode 
ein Datenparameter, daher ist hier 
nur noch ein NOP-Code erforderlich. 
In den Zeilen 1550 bis 1570 bei den 
Drei-Byte-Codes folgen dem Opera¬ 
tionscode zwei Adreß-Byte. 


II. DIE ERSTEN SCHRITTE 


Die Datenübergabe vom Speicher zu 
den Registern, von den Registern 
zum Speicher, dem Datentransfer 
zwischen den Registern, und das 
Retten von Registerinhalten auf den 
Stapel bekommen wir mit einigen 
wenigen Befehlen in den Griff. 

Fünf der sechs CPU-Register sind 
auf dem Bildschirm dargestellt. Die 
Inhalte können wir in binärer, hexa¬ 
dezimaler und dezimaler Form be¬ 
trachten. Ein Fragezeichen signali¬ 
siert, daß das Programm offensicht¬ 
lich auf eine Eingabe wartet. Wenn 
wir jetzt CPU-Befehle in mnemoni- 
scher Form eingeben, können wir 
beobachten, wie die CPU-Register 
auf unsere Befehle reagieren. Ma¬ 
chen wir uns also mit der Materie 
vertraut und starten unsere ersten 
Versuche. 

Laden und Speichern _ 

Wir geben ein: 

LDA #$01 
LDY #$02 
LDY #$03 

Wie wir wohl vermutet haben, zeigen 
unsere ersten drei Register die Wer¬ 
te eins, zwei und drei. Die Adressie¬ 
rungsart, die durch #$ gekennzeich¬ 
net wird, und die den darauffolgen¬ 


den Wert in das Register lädt, heißt 
unmittelbare Adressierung. 

Es existieren auch Befehle, die für 
sich allein stehen können, ohne daß 
noch irgendwelche Daten oder son¬ 
stige Parameter zu folgen brauchen. 
Diese Adressierungsart heißt implizi¬ 
te Adressierung. Ein sehr interessan¬ 
ter Befehl ist der Break, der mit 
BRK abgekürzt wird. Geben Sie 
doch einmal ein: 

BRK 

Das Bild auf dem Bildschirm hat 
sich auf einmal total verändert. Wir 
befinden uns jetzt nicht mehr in un¬ 
serem BASIC-Programm, sondern 
im Maschinen-Monitor TEDMON, 
der in unseren Rechner von Haus 
aus eingebaut ist. Der BRK-Befehl 
löst einen Software-Interrupt aus, 
der beim CI 6/116/Plus4 und auch 
beim CI 28 zum Aufruf des TED- 


SPRUNG IN DEN MONITOR 

MON führt. Daß nichts mehr von 
unserem früheren Bildschirminhalt 
zu sehen ist, dafür kann der TED¬ 
MON nichts. Das CPU-Programm 
war so frei, für einen sauberen Bild¬ 
schirm zu sorgen. Auch der Maschi¬ 
nen-Monitor zeigt uns die Register¬ 
inhalte, wenn auch nur in hexade¬ 
zimaler Form allein. 

Ein Unterschied fällt sofort ins Au¬ 
ge. Gleich an erster Stelle findet 
sich der Programmzähler, der mit 
PC für Programm Counter abgekürzt 
ist. Dieses Register ist nicht nur ein 
Byte, sondern zwei Byte breit. 
Schließlich muß es alle Adressen 
von $0000 bis $FFFF erreichen 
können. Zur Zeit zeigt es auf eine 
Stelle im Maschinenteil unseres Pro¬ 
grammes, wo es anschließend weiter¬ 
geht, wenn wir mit einem Go dafür 
sorgen. Wir geben ein: 

G 

Nach dem Druck der RETURN-Ta- 
ste zeigt der Bildschirm wieder das 
vertraute Bild mit den CPU-Regi- 
stern. Sehr kurz war der Blick in den 
TEDMON. Vielleicht ist Ihnen be¬ 
reits noch eine zweite kleine Abwei¬ 
chung aufgefallen. Prägen Sie sich 
doch einmal den Inhalt des Stapel¬ 
zeigers ein und gehen dann wieder 
mit BRK in den Monitor. 

Der Stackpointer SP weist einen 
ganz anderen Wert auf. Das CPU-Pro¬ 
gramm simuliert einen Stapelzeiger 
mit anderem Wert, damit beim Her¬ 
umprobieren ein Programmabsturz 
nicht so leicht verursacht werden 
kann. 

Ein sehr wichtiger Bestandteil des 
Rechners neben der CPU ist der 


Speicher. Mit dem Monitor können 
Sie sehr leicht Speicherbereiche be¬ 
trachten. Wir geben ein: 

M3000 

Von der Adresse $3000 ausgehend, 
wird ein Speicherabschnitt in hexa¬ 
dezimaler Form dargestellt. Rechts 
finden wir invers die ASCII-Dar- 
stellung davon. Da ein Rechner auch 
Texte speichern soll, ist es interes¬ 
sant, zu sehen, wo ein Text abgelegt 
ist. 

Das BASIC-Ende wurde vom CPU- 
Programm auf $3000 gelegt. Daher 
steht uns ab dieser Adresse der 
Hauptspeicher des Rechners fast un¬ 
eingeschränkt zur Verfügung. Wir 
sorgen zunächst einmal für einen 
sauberen Speicher mit 

F300,3FFF,0 

Der Bereich von $3000 bis $3FFF 
ist nun vollständig mit Nullen ge¬ 
füllt. Wir sehen uns nun wieder den 
ersten Abschnitt an $3000 mit 

M3000 

Wenn nun nach den folgenden Mani¬ 
pulationen andere Werte hier drin¬ 
stehen sollten, kann keiner mehr sa¬ 
gen, dies wäre schon vorher der Fall 
gewesen. Wir können nun mit G ge¬ 
trost den Monitor wieder verlassen. 
Mit LDA, LDX und LDY nur unmit¬ 
telbar Werte in die Register zu schie¬ 
ben, ist uns zu wenig, denn die Da¬ 
ten, um die es geht, befinden sich in 
der Regel irgendwo im Hauptspei¬ 
cher des Rechners. Daten können 
nur durch die CPU verarbeitet wer¬ 
den. Daher muß es auch Befehle ge¬ 
ben, die die Daten vom Speicher in 
CPÜ und wieder von der CPU in den 
Rechner befördern. 

Beginnen wir mit dem Weg von der 
CPU in den Speicher. Uns stehen die 
Speicher- oder auch die Store-Befeh¬ 
le STA, STX und STY zur Verfü¬ 
gung. Diesen Speicherbefehlen muß 
eine Adreßangabe folgen, die angibt, 
wo im Hauptspeicher die Register¬ 
inhalte gespeichert werden sollen. 
Wir geben ein: 


LDA #$54 
STA $3000 
LDA #$45 
STA $3001 
LDA #$53 
STA $3002 
LDA #$54 
STA $3003 

Diese Adressierungsart, bei der dem 
Operationscode die Speicheradresse 
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folgt, heißt absolute Adressierung. 
Gekennzeichnet wird sie durch das 
$-Zeichen, gefolgt von einer vierstel¬ 
ligen HEX-Zahl. Unsere CPU kennt 
auch noch weitere Adressierungsar¬ 
ten, bei denen nur ein einziges Byte 
in Form von zwei Hexziffem anzu¬ 
geben ist, oder solche, bei denen das 
X- oder Y-Register mit zur Adreßbil- 
dung verwandt wird. Um das Pro¬ 
gramm nicht allzusehr aufzublasen, 
wurde darin auf weitere Adressie¬ 
rungsarten jedoch verzichtet. 

Um den Erfolg unseres Speichertests 
zu begutachten, sollten Sie sich im 
Monitor nochmals den Bereich ab 
$3000 ansehen. Wie dieses vor sich 
geht, dürfte Ihnen inzwischen be¬ 
reits bekannt sein. Wir finden die er¬ 
warteten Werte, die in ASCII-Dar- 
stellung das Wort TEST ergeben. 
Nicht nur die Speicherbefehle, son¬ 
dern auch die Ladebefehle lassen 
sich absolut adressieren. Spaßeshal¬ 
ber wechseln wir einmal das Re¬ 
gister: 

LDX $3000 
STX $3008 
LDX $3001 
STX $3009 
LDX $3002 
STX S300A 
LDX $3003 
STX $300B 

Wir haben damit die von $3000 bis 
$3003 abgelegten Werte nach $3008 
bis $300B übertragen, wie uns die 
Überprüfung mit dem Monitor be¬ 
stätigt. 

Transferieren zwischen Registern 

Datenübertragung von CPU-Register 
nach Speicher und umgekehrt ken¬ 
nen wir jetzt schon. Irgend etwas 
scheint aber noch zu fehlen. Wenn 
wir einen Wert verändern, so kommt 
es oft vor, daß wir gerne den ur¬ 
sprünglichen Zustand wiederherstel¬ 
len würden. Im Akku könnte zum 
Beispiel ein Wert stehen, den wir für 
irgendwelche Zwecke benötigen. 
Vorher sollen aber noch ein paar Re¬ 
chenoperationen erfolgen, die leider 
den Akkuinhalt verändern. 

Eine Lösungsmöglichkeit ist mit un¬ 
serem bisherigen Wissen bereits 
denkbar. So könnten wir den Akku¬ 
inhalt einfach an irgendeiner Adres¬ 
se abspeichern und unseren Wert, so¬ 
bald er wieder gebraucht wird, er¬ 
neut einladen. Doch warum sollen 
Daten, die wir bereits in der CPU 
bereit haben, erst wieder in das 
RAM geschrieben und dann wieder 
hergeholt werden? 

Speicherzugriffe kosten mehr Zeit 
als reine CPU-Operationen, und au¬ 


ßerdem mehr Platz, da immer noch 
eine Speicheradresse anzugeben ist. 
Es sollte doch auch Möglichkeiten 
geben, Daten direkt von einem Regi¬ 
ster in das andere zu transferieren. 
Diese Transferbefehle gibt es selbst¬ 
verständlich. Um Daten vom Akku 
in die Intexregister X und Y zu 
schaufeln, gibt es die Befehle: 

TAX 

TAY 

Den umgekehrten Weg ermöglichen: 

TXA 

TYA 

Scheuen Sie sich nicht, dies ruhig 
auszuprobieren. Solange nur ein 
oder zwei Werte gerettet zu werden 
brauchen, und die anderen Register 
nicht für andere Zwecke benötigt 
werden, ist dieses Verfahren ein 
brauchbarer Weg. 

Oft werden aber Unterroutinen an¬ 
gesprungen, die alle Registerinhalte 
verändern. In diesen Unterroutinen 
kann wiederum der Bedarf beste¬ 
hen, neue Registerinhalte zu retten. 
Als Ausweg erscheint in diesem 
Falle nur das Abspeichern in dafür 
vorgesehenen Speicherplätzen gang¬ 
bar zu sein. Jede Unterroutine 
bräuchte also wieder ihre besonde¬ 
ren Speicherstellen zum Retten der 
Register. 

Nicht leicht ist es wohl, da noch 
den Überblick zu behalten. Für re¬ 
kursive Programmierung, bei der 
ein Unterprogramm sich selbst mehr¬ 
mals aufruft, bringt auch dieses kei¬ 
ne Lösung. Die vorgesehnen Spei¬ 
cherstellen würden bei jedem rekur¬ 
siven Aufruf neu überschrieben wer¬ 
den, wodurch die früheren Werte 
verlorengehen. Das Stapelregister 
sorgt hier für Abhilfe. 

Der Prozessorstapel _ 

Laden Sie einmal einen beliebigen 
Wert in den Akku. Um diesen zu 
retten, geben wir jetzt den Befehl 
ein: 

PHA 

Wenn Sie dabei auf das Stapelregi¬ 
ster geachtet haben, haben Sie si¬ 
cherlich eine Veränderung wahrge¬ 
nommen. Wenn nicht, so beobach¬ 
ten wir es bei einem erneuten Ver¬ 
such. Laden Sie bitte den Akku mit 
einem neuen Wert und retten Sie 
diesen wieder mit PHA. 

Der Wert des Stapelzeigers wurde 
jedesmal um den Betrag eins verrin¬ 
gert. Wenn wir unsere geretteten 
Werte vom Stapel wieder abheben, 
so beobachten wir umgekehrt ein 


Erhöhen des Stapelzeigers. Vorher 
laden wir noch schnell den Akku 
mit einem anderen Wert, damit wir 
das Erscheinen der alten Werte se¬ 
hen. Wir geben ein: 

PLA 

Es erscheint der zuletzt gerettete 
Wert. Nach einem erneuten PLA ha¬ 
ben wir auch den zuerst geretteten 
Wert wieder. Der Stapelzeiger müß¬ 
te nun wieder, wie am Anfang, den 
Wert 7F aufweisen. Um zu untersu¬ 
chen, was geschehen ist, geben wir 
ein: 

LDX $017 F 
LDY $017E 

Wir sehen, vielleicht auch zu unserer 
Verblüffung, die ehemals geretteten 
Werte nun in den Indexregistern ste¬ 
hen. 

Der Stapel funktioniert folgender¬ 
maßen: Für den Stapel ist ein RAM- 
Bereich von $0100 bis $01 FF reser¬ 
viert. Der Inhalt des Stapelzeigers 
gibt das Low-Byte der Adresse an, 
in die der Registerinhalt bei einem 
PUSH-Befehl geschrieben wird. 

Der Stapelzeiger wird zusätzlich um 
den Wert eins erniedrigt, so daß er 
nun auf die nächstniedrige Adresse 
weist. So können verschiedene Daten 
hintereinander gerettet werden, oh¬ 
ne daß sie sich gegenseitig ins Gehe¬ 
ge kommen. 

Beim PULL-Befehl wird der Stapel¬ 
zeiger wieder um Ems erhöht, und 
der unter der Adresse mit High-Byte 
01 und dem Stapelzeigerinhalt als 
Low-Byte in das entsprechende Re¬ 
gister geladen. Nicht nur der Akku 
kann „gestapelt“ werden, sondern 
auch das Statusregister. Die Befehle 
hierfür sind: 

PHP 

PLP 

Wir können somit alle Registerinhal¬ 
te auf den Stapel retten: 

PHP 

PHA 

TXA 

PHA 

TYA 

PHA 

Abheben müssen wir den Stapel in 
umgekehrter Reihenfolge: 

PLA 

TAY 

PLA 

TAX 

PLA 

PLP 
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Die Stapelbefehle erlauben uns gar, 
mit dem Statusregisterinhalt genau¬ 
so, wie mit sonstigen Daten umzu¬ 
gehen. Wir bekommen die Werte in 
den Griff mit: 

PHP 

PLA 

Das Zurückübertragen macht auch 
keine besonderen Schwierigkeiten: 

PHA 

PLP 

Sogar das Stapelregister bekommen 
wir mit zwei Transferbefehlen völ¬ 
lig in den Griff: 


TSX 

TXS 


Übersicht der besprochenen 

Befehle 

Laden 

LDA, 

LDX, 

LDY 

Speichern 

STA, 

STX, 

STY 

Transferieren 

TAX 

TAY, 

TSX 


TXA, 

TYA, 

TXS 

Stapeln 

PHA, 

PHP 



PLA, 

PLP 



III. SCHALTEN MIT DER CPU 


Einzelne Bit lassen sich mit den 
Befehlen ORA, AND und EOR set¬ 
zen. Damit können wir verschiede¬ 
ne Umschaltungen in den TED-Re- 
gistern vornehmen. Den Bildschirm 
auf 24 Zeilen oder auf 38 Spalten 
umzuschalten, ist relativ einfach zu 
handhaben. 

Mit dem Computer lassen sich nicht 
nur Daten verwalten. Besondere 
Bausteine, die wir über bestimmte 
Adressen ansprechen können, erlau¬ 
ben uns, die verschiedensten Um¬ 
schaltungen vorzunehmen. Oft ist 
es nur ein einziges Bit, das geändert 
werden soll. Die Änderung der an¬ 
deren Bit könnte zu unerwünsch¬ 
ten Ergebnissen führen. 

Interessant sind vor allen Dingen die 
Multifunktionsregister des TED- 
Chips und der serielle Port unseres 
Rechners. Bevor wir uns mit diesen 
Bausteinen ausgiebig befassen, sind 
zuerst die Befehle zur Bit-Manipula¬ 
tion zu besprechen. Wir geben ein: 
LDA #$00 
LDA #$01 
LDA #$02 
LDA #$04 
LDA #$08 
LDA #$10 
LDA #$20 
LDA #$40 
LDA #$80 


Ein bestimmtes Bit läßt sich mit dem 
Ladebefehl leicht setzen. Der Nach¬ 
teil ist, daß die bereits vorhandenen 
Bit leider auch verändert werden. 
Zum Verändern einzelner Bit eignet 
sich der Befehl EOR. Probieren Sie 
doch einmal: 

LDA #$99 
EOR #$01 
EOR #$02 
EOR #$04 
EOR #$08 
EOR #$10 
EOR #$20 
EOR #$40 
EOR #$80 

Wir haben ein Bit nach dem ande¬ 
ren umgedreht. Es lassen sich natür¬ 
lich auch alle umdrehen mit: 

EOR #$FF 

Für uns könnte der EOR-Befehl be¬ 
reits ausreichend sein, da wir ja se¬ 
hen, ob ein bestimmtes Bit bereits 
den gewünschten Wert hat, oder 
nicht. Wenn nein, wenden wir den 
EOR-Befehl an, wenn ja, dann eben 
nicht. Die CPU nachsehen zu lassen, 
ob ein Bit gesetzt ist, oder nicht 
und gegebenenfalls mit dem EOR- 
Befehl zu reagieren, wäre wohl et¬ 
was aufwendig. Daher existieren die 
Befehle ORA und AND, mit denen 
unabhängig vom Bit-Zustand die¬ 
sem in jedem Falle der Wert eins 
oder null zugewiesen werden kann: 

LDA #$99 
ORA #$01 
ORA #$02 
ORA #$04 
ORA #$08 
ORA #$10 
ORA #$20 
ORA #$40 
ORA #$80 

Ebenso wie beim EOR-Befehl lassen 
sich auch mehrere Bit setzen: 

LDA #$81 
ORA #$18 

Die zwei mittleren Bit sind durch 
den ORA-Befehl hinzugekommen. 
Um zu wissen, welche Werte wir für 
den AND-Befehl brauchen, sollten 
wir die Werte, mit denen wir vorher 
geordert hatten, invertieren, und 
uns die Resultate merken: 

LDA #$01 
EOR #$FF 
LDA #$02 
EOR #$FF 
LDA #$04 
EOR #$FF 


LDA #$08 
EOR #$FF 
LDA #$10 
EOR #$FF 
LDA #$20 
EOR #$FF 
LDA #$40 
EOR #$FF 
LDA #$80 
EOR #$FF 

Wir können nun den Akku wieder 
mit #$99 oder auch einem anderen 
Wert laden, und das Nullsetzen der 
Bit beobachten. 

LDA #$99 
AND #$FE 
AND #$FD 
AND #$FB 
AND #$F7 
AND #$EF 
AND #$DF 
AND #$BF 
AND #$7F 

Es lassen sich wieder mehrere Bit 
auf einmal setzen. Wir laden hierzu 
das X-Register. 

LDX #$7E 

Wir können sehen, daß die äußeren 
beiden Bit den Wert Null haben. 

Beim Undieren mit diesem Wert wür¬ 
den folglich die äußeren Bit auf Null 
gesetzt. 

LDA #$99 
AND #$7E 

Probieren Sie ruhig noch ein wenig 
mit den Befehlen EOR, ORA und 
AND herum, denn Übung macht ja 
bekanntlich den Meister. Sie können 
auch die absolute Adressierung ver¬ 
wenden, bei welcher der Inhalt einer 
Speicherzelle mit dem Akkuinhalt 
verknüpft wird. 

Die Register des TED-Chips _ 

Die Register des TED-Chips werden 
angesprochen über die Adressen 
$FF00 bis $FF3F. Hier ist eine klei¬ 
ne Zusammenstellung: 


Anzeige 
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$FF00 

Low-Byte Timer A 

$FF01 

High-Byte Timer A 

$FF02 

Low-Byte Timer B 

$FF03 

High-Byte Timer B 

$FF04 

Low-Byte Timer C 

SFF05 

High-Byte Timer C 

$FF06 

Multi-F unktions 1 

Register I 

$FF07 

Multi-Funktions- 
Register II 

SFF08 

Tastaturregister 

$FF09 

Interrupt Request 

Register 

$FF0A 

Interrupt Mask Register 

$FF0B 

Rasterinterrupt 

$FF0C 

Cursorpositon High-Byte 

$FF0D 

Cursorpositon Low-Byte 

$FF0E 

Tonhöhe Tongenerator 1 

$FF0F 

Tonhöhe Tongenerator 2 

$FF10 

Tonhöhe Tongenerator 2 
Bit 8/9) 

$FF11 

Multi-F unktions- 
register III 

$FF12 

Multi-Funktions¬ 
register IV 

$FF13 

Zeichensatz-Adresse 

$FF14 

Basisadresse Färb-/ 
Video-RAM 

$FF15 

Hintergrundfarbe 

$FF16 

Zeichenfarbe 

$FF17 

Multicolor-Farbe 1 

$FF18 

Multicolor-Farbe 2 

$FF19 

Rahmenfarbe 

$FF1A 

Bit-Mapping 1 

$FF1B 

Bit-Mapping 2 

SFF1C 

Aktuelle Rasterzeile 

Bit 8 

$FF1D 

Aktuelle Rasterzeile 

Bit 0-7 

SFF1E 

Rasterspalte 

SFF1F 

Vertikal-Adresse 

3FF3E 

Umschaltung auf ROM 

$FF3F 

Umschaltung auf RAM 


Der TED-Chip besitzt eine ziemliche 
Anzahl von Registern. Viele davon 
sind erst bei fortgeschrittenen Sy¬ 
stemkenntnissen interessant. Wir 
picken uns einige davon heraus, an 
denen wir sehr schön einige heraus¬ 
stechende Effekte beobachten kön¬ 
nen. Gut eignen sich liier die vier 
Multi-Funktions-Register, die Zei¬ 
chensatzadresse, Hintergrundfarbe, 
Zeichenfarbe und Rahmenfarbe. 

Zur Sicherung wird der Inhalt von 
$FF06 zusätzlich in das X-Register 
geladen. 

LDA $FF06 
TAX 


Wir verändern die Bit null bis zwei, 
die angeben, um wieviel Pixel der 
Bildschirm vertikal verschoben wer¬ 
den soll. 

ORA #$07 
STA $FF06 
AND #$F8 
STA SFF06 
STX 3FF06 

Beim Verschieben des Bildschirmes 
treten am oberen und unteren Rand 
unerwünschte Effekte auf. Bit drei, 
das den Bildschirm auf 24 Zeilen um¬ 
schaltet, schafft vielleicht Abhilfe. 

TXA 

AND #$F7 
STA $FF06 

Nicht wie erwartet, verschwindet 
die letzte Zeile, sondern sowohl ein 
Teil der ersten und der letzten. Die¬ 
ses müßte sich jedoch durch Bild¬ 
schirmverschieben wohl wieder aus- 
gleichen lassen. 

ORA #$07 
STA $FF06 
AND #$F8 
STA $FF06 

Bei 24 Zeilen ist es möglich, den 
Bildschirm pixelweise ohne störende 
Nebeneffekte zu verschieben, bis 
schließlich die Breite einer ganzen 
Zeile erreicht wird. So können 
Smooth-Scrolling-Effekte program¬ 
miert werden. Wir stellen wieder den 
Anfangszustand her: 

STX $FF06 
TXA 

Erschrecken Sie bitte beim nächsten 
Bit nicht, wenn plötzlich auf dem 
Bildschirm nichts mehr zu sehen 
sein sollte. Die Tastatur nimmt wei¬ 
ter Ihre Eingaben an. 

EOR #$10 
STA $FF06 
STX $FF06 
TXA 

Sollen Programme etwas schneller 
laufen, oder Routinen völlig gleich¬ 
mäßig ausgeführt werden, so ist es 
zweckmäßig, den Bildschirm auszu¬ 
schalten. Die CPU wird so nicht 
mehr durch den TED-Chip gestoppt, 
damit dieser in der Zwischenzeit den 
Bildschirm aufbauen kann. Dies ist 
besonders für Signale wichtig, die 
nicht durch eine extra Clock-Lei¬ 
tung getaktet werden, sondern bei 
denen es einzig und allein auf die 
Impulsdauer ankommt. Bei der Da¬ 
tenübertragung zur oder von Data- 


Multi-Funktions-Register 1 
($FF06) 

Bit 0-2: 

Vertikale Verschie¬ 
bung des Bildschirms 

Bit 3: 

Umschaltung auf 24 
Zeilen 

Bit 4: 

Bildschirm aus/ein 

Bit 5: 

Grafikmodus aus/ein 

Bit 6: 

Grafikzeichen werden 
als reverse Buchstaben 
wiedergegeben 

Bit 7: 

Funktion unbekannt 


Multi-Funktions-Register II 

($FF07) 


Bit 0-2: 

Horizontale Bildschirm¬ 
verschiebung 

Bit 3: 

Umschaltung auf 38 
Spalten. 


Schaltet unerwünsch¬ 
te Effekte beim 
Smooth-Scrolling aus. 

Bit 4: 

Multicolor enable 

Bit 5: 

Funktion unbekannt 

Bit 6: 

PAL/NTSC-Norm 

Bit 7: 

Invert off. Anstelle 
inverser Zeichen kön¬ 
nen Zeichen aus dem 
zweiten Zeichensatz 


mit dargestellt wer¬ 
den. Damit lassen sich 
gleichzeitig der Groß/ 
Grafik- und der 


Klein/Groß-Zeichen- 
satz darstellen. 


Multi-Funktions-Register III 
($FF11) 

Bit 0-3: 

Lautstärke (0—8) 

Bit 4: 

Tongenerator 1 
ein/aus 

Bit 5: 

Tongenerator 2 
ein/aus 

Bit 6: 

Tongenerator 2 
Rauschen 

Bit 7: 

Tongenerator 

ein/aus 


sette haben Sie diesen Effekt sicher¬ 
lich schon beobachtet. 

Einen Bildschirm, der nicht sehr viel 
herzeigt, bekommen Sie auch mit 

EOR #$20 
STA $FF06 
STX $FF06 
TXA 
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Multi-Funktions-Register IV 
($FF12) 

Bit 0/1: 

Tonhöhe Tongenera¬ 
tor 1, Bit (8/9) 

Bit 2: 

Zeichensatz in 
RAM/ROM 

Bit 3-7: 

Basisadresse der 
hochauflösenden 


Grafik 


Von Grafik ist leider keine Spur zu 
sehen, auch wenn vorher einmal der 
Grafikbildschirm aktiviert war, zeigt 
sich noch nichts von einer Grafik. 
Diese Bit-Umstellung hat nur eine 
Wirkung, wenn Sie zu ganz bestimm¬ 
ten Zeiten mit einer Vielzahl anderer 
Parameter zusammen erfolgt. Die 
Interruptroutine, die auch für die 
Bildschirmausgabe verantwortlich ist, 
macht beim Bearbeiten der Grafik 
von diesem Bit Gebrauch. 

Fraglich ist, ob das nächste Bit uns 
sehr viel Nutzen bringen kann. 

EOR #$40 
STA $FF06 
STX $FF06 
TXA 

Für irgendwelche schleierhaften 
Testzwecke soll angeblich Bit sieben 
dienen. 

EOR #$80 
STA $FF06 
STX $FF06 
TXA 

Mit den Bit-Manipulationen dürften 
Sie nun schon ein wenig vertraut 
sein. So wird es wohl reichen, wenn 
wir ein paar weitere TED-Register 
ohne zusätzliche Experimentieran¬ 
weisungen vorstellen. 

Zeichensatzadresse ($FFl3) _ 

Die Bit zwei bis sieben enthalten die 
Adreß-Bit 10 bis 15 der Zeichenge¬ 
neratoradresse. Wir starten einen 
Versuch. 

LDX $FF13 

Nun schalten wir mit Commodore- 
Taste und Shift den Zeichensatz 
um. 

LDY $FF13 

Der Wert der Zeichensatzadresse hat 
sich offensichtlich verändert. Wir 
schalten wieder um. Durch das Spei¬ 
chern der Werte in den Indexregi¬ 
stern ist auch ein Umschalten zwi¬ 


schen Groß- und Kleinschrift mög¬ 
lich. 

STY $FF13 
STX $FF13 

Zeichenfarbe ($FFl6) _ 

Manipulationen dieses Registers 
bleiben ohne Wirkung. Die Zeichen¬ 
farbe bestimmt schließlich der im 
Farb-RAM abgelegte Code. Welcher 
Code abgelegt wird, bestimmt die 
Speicherstelle $05 3B. Wir laden die¬ 
sen Wert. * 

LDA $053B 
TAX 

Bit null bis drei, die vier rechten Bit 
zeigen eine Null als Kennung für die 
Farbe schwarz. Bit vier bis sechs ge¬ 
ben die Helligkeit an. Schwarz ist 
schwarz, deshalb ist die Helligkeit 
uninteressant. Die Frage ist, ob Bit 
sieben auch noch eine Funktion 
besitzt. 

ORA #$80 
STA $053B 
STX $05 3B 
TXA 

Bit acht ist das sogenannte Blinkflag. 
Die neu ausgegebenen Registerwer¬ 
te und unsere Eingabe blinkten fröh¬ 
lich vor sich hin. Wenn Sie gerne 
Färb- und Helligkeitsänderungen 
vornehmen wollen, so dürfen Sie die¬ 
ses gerne tun. 

Rahmenfarbe (SFF19) _ 

Mit diesem Register kann die Rah¬ 
menfarbe geändert werden. Dieses 
geht genauso wie bei der Zeichenfar¬ 
be. Bit sieben ist ohne Funktion, 
ein Blinken von Rahmen oder Hinter¬ 
grund gibt es nicht. 

Hintergrundfarbe ($FF15) _ 

Es gilt das bereits in Verbindung 
mit der Rahmenfarbe Gesagte. 

IV. SCHALTEN MIT DEM 
CPU-PORT ($0001) 

Der C16/116/Plus4 besitzt als Pro¬ 
zessor keine CPU 6502, sondern die 
CPU 7501. Diese CPU zeichnet sich 
durch einen speziellen Port aus, den 
der Rechner zum Ansteuern von 
Kassettenport und seriellen Port 
benützt. 

Wir sehen uns die Bit des Port-Re¬ 
gisters an: 

LDA $0001 
TAX 


Bit null bis drei, die vier rechten 
Bit, dienen zum Senden, Bit vier bis 
sieben, die vier linken Bit, zum Emp¬ 
fangen. Die Sendeleitungen laufen 
über einen Inverter. Wir sehen, daß 
Spannung auf den zu Bit null bis 
zwei dazugehörigen Leitungen liegt. 
Die zu Bit drei gehörige Leitung 
liegt auf Masse. Wir nehmen einige 
Manipulationen vor. 

ORA #$01 
STA $0001 
LDA $0001 

Der Zustand von Bit null hat sich ge¬ 
ändert, allerdings ist mit Bit sieben 
das Gleiche passiert. Wenn wir Bit 
eins abändern, so können wir den¬ 
selben Effekt auch bei Bit sechs be¬ 
obachten. Bit sieben scheint irgend¬ 
wie mit Bit null und Bit sechs mit 
Bit eins gekoppelt zu sein. Dieses 
ist auch der Fall. Mit Bit null schal¬ 
ten wir die DATA-Leitung, mit Bit 
eins die CLOCK-Leitung und mit 
Bit zwei die ATN-Leitung des seriel¬ 
len Ports. Wer einen Spannungs¬ 
messer besitzt, kann dieses nach¬ 
messen. 

Mit Bit sieben messen wir die Span¬ 
nung auf der DATA-Leitung und 
mit Bit sechs die Spannung an der 
CLOCK-Leitung. Die ATN-Leitung 
können wir leider nicht abfragen. 

Hat Bit eins den Wert null, so liegt 
Spannung auf der DATA-Leitung, 
was Bit sechs mit einer Eins anzeigt. 
Im umgekehrten Fall zeigt Bit sechs 
keine Spannung an. 

Wenn uns ein zweiter C16/116/ 

Plus4 zur Verfügung steht, und wir 
ein serielles Kabel besitzen, können 
wir gar Signale von einem Rechner 
auf den anderen übertragen. Wir 
müssen hierzu im empfangenden 
Rechner das Sende-Bit auf Null set¬ 
zen, so daß auf der entsprechenden 
Leitung fünf Volt anliegen. Wenn 
der Senderechner die Leitung des 
Sendebit auf eins setzt, fällt das 
Potential ab und der Empfangs¬ 
rechner registriert dieses durch das 
Empfangs-Bit. 

Serielle Übertragungen von Rech¬ 
ner zu Rechner sind so ohne Weite¬ 
res machbar. Bit eins dient nicht 
nur als Clock-Signal für den seriel¬ 
len Port,-sondern auch zur Ansteue¬ 
rung der Write-Leitung des Kasset¬ 
tenports, was mit einem Voltme¬ 
ter überprüft werden kann. Der 
Kassettenport stellt uns allerdings 
nur drei Volt zur Verfügung. Le¬ 
gen wir eine Spannung an die Read- 
Leitung des Kassettenports an, so 
sehen wir, daß Bit vier den Zustand 
dieser Leitung anzeigt. 

Ob die Playtaste gedrückt wurde, 
oder nicht, darüber gibt uns das 
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■GRUNDLAGEN 


Damit ist die Betriebssystemroutine, 
die für die Kassettenmotoransteue- 
rung bei gedrückter Play-Taste sorgt, 
ausgeschaltet. Auf einen Druck der 
Play-Taste allein hin rührt sich noch 
lange nichts. Der Motor wird nur 
noch durch Bit drei des Portregi¬ 
sters gesteuert. Auch wenn gar nichts 
angeschlossen ist, können wir dieses 
Bit jetzt nach Belieben verändern 
und die Spannung messen. Wir brin¬ 
gen nach unseren Versuchen unser 
Betriebssystem wieder in Ordnung. 

LDY #$42 
STY $0312 


V. DIE LOGIK DER CPU 

CPU-Operationen beeinflussen be¬ 
stimmte Flags des Statusregisters. 
Acht bedingte Sprungbefehle reagie¬ 
ren auf die Zustände von vier 
Statusflags. 

Viele sprechen von der Intelligenz 
des Computers. Alles, was eine CPU 
kann, ist jedoch nur auf ganz gewis¬ 
se Schalterstellungen hin zu verzwei¬ 
gen. Damit diese Verzweigungen 
richtig stattfinden, ist die Intelligenz 
des Programmierers gefordert. Die 
Verzweigungsbefehle sind: 

BEO 

BNE 

BPL 

BMI 

BCS 

BCC 

BVS 

BVC 

Diese Befehle können Sie mit unse¬ 
rem CPU-Programm nicht eingeben. 
Sie sind nicht für sich, sondern nur 
in einem Programm brauchbar. Wir 
können uns jedoch mit den Schaltern 
befassen. Ein Register wurde bisher 
noch kaum besprochen, das Status¬ 
register. Es ist sozusagen das Auge 
des Computers. Nur auf das, was das 
Statusregister anzeigt, kann die CPU 
mit Verzweigungen reagieren. Set- 
und Clear-Befehle erlauben uns die 
gezielte Einflußnahme auf einzelne 
Statusflags. 


folgreichen Ablauf einer Operation 
zu signalisieren. 

Zurückgekehrt aus einem Unterpro¬ 
gramm, das zum Beispiel Daten auf 
ein externes Gerät ausgeben sollte, 
läßt sich mit dem Branch-Befehl auf 
das Carry-Flag reagieren, für den 
Fall, daß die Ausgabe nicht geklappt 
hätte, da vielleicht der Drucker gar 
nicht angeschaltet war. 

SEI 

CLI 

Mit diesen Befehlen können wir das 
Interrupt-Flag setzen und löschen. 
Wie wir wissen, kommt es zu Zwek- 
ken der Bildschirmausgabe und der 
Tastaturabfrage immer wieder zu 
Unterbrechungen des laufenden 
Programms. Dies kann aus irgend¬ 
welchen Gründen unerwünscht sein. 
Ist gar die RAM-Bank eingeschaltet 
und der Prozessor bearbeitet hierin 
ein Programm, so würde der Inter¬ 
rupt einen Absturz bewirken, wird 
doch durch diesen wieder die ROM- 
Bank aktiviert. Anstelle des Rück¬ 
sprungs in die unterbrochene Rou¬ 
tine, landet der Programmzähler 
dann irgendwo im Betriebssystem 
oder im BASIC-Interpreter, so daß 
dann nur mehr der Himmel weiß, 
was anschließend stattfindet. 

SED 

CLD 

Damit eingegebene Zahlen nicht 
mühsam erst in Hex-Zahlen umge¬ 
rechnet werden müssen, wenn wir 
Rechenoperationen vornehmen wol¬ 
len, können wir dem Rechner durch 
Setzen des Dezimal-Flags mitteilen, 
daß er seine Additionen und Sub¬ 
traktionen nun im sogenannten 
BCD-System vornehmen soll. 

CLV 

Bei Rechenoperationen mit vorzei¬ 
chenbehafteten Zahlen ist das Über- 
lauf-Flag von Interesse. Es sollte da¬ 
her auch wieder zurückgesetzt wer¬ 
den können. 


Port-Register keinen Aufschluß, je¬ 
doch das Bit zwei in Speicherstelle 
$FD10. Ist dieses Null, so ist die 
Play-Taste gedrückt. Der Plus4 er¬ 
laubt uns über dieses Bit, den Kas¬ 
settenmotor zu steuern. Da hier ein 
I/O-Baustein vorhegt, der auch für 
den Userport gedacht ist, können 
wir dort einfach etwas hineinschrei¬ 
ben und so eine gedrückte Rekor¬ 
dertaste simulieren. 

LDA $FD10 
EOR #$04 
STA $FD10 
LDA $0001 

Der Plus4 zeigt im Port-Register, 
daß die Motor-Leitung, die durch 
Bit drei angesteuert wird, einge¬ 
schaltet ist. Das Spannungsmeßge¬ 
rät sollte über sechs Volt anzeigen. 
Der CI6/116 zeigt leider keinerlei 
Reaktion. Wir stellen beim Plus4 
das Play-Flag wieder auf den ur¬ 
sprünglichen Wert 

LDA $FD10 
ORA #$04 
STA $FD10 
LDA $0001 

Wir versuchen, die Motorleitung auf 
Spannung zu setzen. 

EOR #$08 
STA $0001 
LDA $0001 

Leider hatten wir keinen Erfolg. 

Wir schließen die Datasette an und 
drücken auf die Play taste. 

LDA $0001 

Wie wir sehen, ist die Motorleitung 
nun angeschaltet. Wir können bei 
gedrückter Play-Taste nun nach Be¬ 
lieben schalten und walten. 

EOR #$08 
STA $0001 
LDA $0001 

Der Motor ist wieder aus. 

EOR #$08 
STA $0001 
LDA $0001 

Nun ist er wieder an. Für Schaltun¬ 
gen mit dem Kassettenport kann 
durch Verbinden der Play-Leitung 
mit Masse dafür gesorgt werden, daß 
wir auch die Motor-Leitung zum 
Schalten benutzen können. 

Eine andere Möglichkeit gewinnen 
wir durch einen kleinen Speicherein¬ 
griff: 

LDY #$45 
STY $0312 


SEC 

CLC 

Das Carry-Flag ist das einzige Flag, 
das wir mit Set und Clear sowohl 
an- und ausschalten können und 
auf welches außerdem noch Ver¬ 
zweigungsbefehle reagieren, die Be¬ 
fehle BCS und BCC. Daher wird 
dieses Flag oft gesetzt, um den er¬ 



Lesen Sie bitte weiter auf Seite 83 


62 




KOMMT 
REGELMÄSSIG 
ZU IHNEN 
INS HAUS 

Finden Sie Ihr C16/P4 nicht am Kiosk? Weil es schon 
ausverkauft ist? Oder „Ihr” Kiosk nicht beliefert 
wurde? Kein Problem! Für ganze 70 DM liefern wir 
Ihnen per Post sechs Hefte ins Haus (Ausland 80 DM). 
Einfach den Bestellschein ausschneiden - fotoko¬ 
pieren oder abschreiben, in einen Briefumschlag und 
ab per Post (Achtung: Porto nicht vergessen). C16/P4- 
SPECIAL kommt dann pünktlich ins Haus. 


WICHTIGE RECHTLICHE 
GARANTIE! 

Sie können diesen Abo-Auftrag 
binnen einer Woche nach Eingang 


der Abo-Bestätigung durch den 
Verlag widerrufen - Postkarte ge¬ 
nügt. Zur Wahrung der Frist genügt 
die rechtzeitige Absendung. An¬ 


sonsten läuft dieser Auftrag je¬ 
weils für sechs Ausgaben, wenn 
ihm nicht vier Wochen vor Ablauf 
widersprochen wird, weiter. 


DAS SONDERANGEBOT: 
PRIVATE KLEINANZEIGEN 

KOSTENLOS! 


Das bietet Ihnen COMMODORE-WELT: KLEIN¬ 
ANZEIGEN SIND KOSTENLOSE FÜR PRIVATAN¬ 
BIETER! Suchen Sie etwas, haben Sie etwas zu ver¬ 
kaufen, zu tauschen, wollen Sie einen Club gründen? 
Coupon ausfüllen, auf Postkarte kleben oder in Brief¬ 
umschlag stecken und abschicken. So einfach geht 
das. Wollen Sie das Heft nicht zerschneiden, können 
Sie den Coupon auch fotokopieren. Oder einfach den 
Anzeigentext uns so schicken, auf Postkarte oder im 
Brief. Aber bitte mit Druckbuchstaben oder in 
Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und/oder Tele¬ 
fonnummer sollten acht Zeilen ä 28 Anschläge nicht 
überschritten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater In¬ 


serenten kostenlos. Gewerbliche Anzeigen kosten pro 
Zeile 4,80 plus Mehrwertsteuer! 

Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

Chiffre-Anzeigen sind nicht gestattet! Wir behalten 
uns vor, Anzeigen, die gegen rechtliche, sittliche oder 
sonstige Gebote verstoßen, abzulehnen! 
Anzeigenabdruck in der Reihenfolge ihres Eingangs, 
kein Rechtsanspruch auf den Abdruck in der nächsten 
Ausgabe! 

Die Insertion ist nicht vom Kauf des Heftes abhängig! 
Wir behalten uns vor, Anzeigen, die nicht zum The¬ 
menkreis des Heftes - Computer - gehören, nicht ab¬ 
zudrucken oder sie nur insoweit zu berücksichtigen, 
wie es der Umfang des kostenlosen Anzeigenteils zu¬ 
läßt. 
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Die große Börse für jeden Zweck in der C16/P4-SPECIAL. Kostenlos für Privat-Inserenten. Spottbillig für gewerbliche Anbieter. 
Einfach Coupon ausschneiden, fotokopieren o.ä., ausfüllen und ab die Post - Freimachen nicht vergessen! - Unsere Adresse steht 
auf dem Coupon, ebenso die Preise für gewerbliche Anbieter! Achtung! Wir weisen ausdrücklich darauf hin, daß wir offensichtlich 
gewerbliche Anzeigen nicht kostenlos veröffentlichen und uns jedweden Abdruck kostenloser Anzeigen Vorbehalten müssen, insbe¬ 
sondere, wenn deren Inhalt nicht CBM-typisch ist oder gegen geltendes Recht verstößt. Private Chiffreanzeigen werden nicht aufge¬ 
nommen. Für gewerbliche Anbieter DM 4,80 pro Zeile zuzüglich gesetzlicher Mehrwertsteuer. 



POSTFACH 1161 Straße/Hausnr. 

D-8044 UNTERSCHLEISSHEIM Plz/Ort_ 


K 


ABO-SERVICE-KARTE 

- 


16 /m COUPON 


Ich nehme zur Kenntnis, 
daß die Belieferung 
erst beginnt, wenn die 
Abo-Gebühr dem Verlag 
zugegangen ist. 


Ja, ich möchte von Ihrem Angebot 
Gebrauch machen. 

Bitte senden Sie mir bis auf Wider¬ 
ruf ab sofort jeweils die nächsten 

Name_ 

Vorname_ 

Straße/Hausnr_ 

Plz/Ort_ 


sechs Ausgaben an untenstehende 
Anschrift. Wenn ich nicht vier Wo¬ 
chen vor Ablauf kündige, läuft diese 
Abmachung automatisch weiter. 

_16/111 


Ich bezahle: 

□ per beiliegendem Verrechnungsscheck 

□ gegen Rechnung 

□ bargeldlos per Bankeinzug von meinem Konto 


bei (Bank) und Ort 


COMMODORE WELT 
ABO-SERVICE 16/111 
POSTFACH 1161 
D-8044 

UNTERSCHLEISSHEIM 


Kontonummer_ 

Bankleitzahl- 

(steht auf jedem Kontoauszug) 

Unterschrift_ _ _ __ 

Von meinem Widerspruchsrecht habe ich Kenntnis genommen. 
Unterschrift_ 
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Spiele 


Hallo, liebe Jie&en, 


■ nfogrames scheint 

Die Players Pages sind ja be- 


J umgestellt zu haben. 

reits ein fester Bestandteil 


l-ä Spiele, wie wir sie 

von LOAD & RUN. Da die- 


bisher von der Firma ge- 

se Spielehilfe-Seiten bei un- 


wohnt waren, werden kaum 

seren Lesern großen An- 


noch produziert. Dafür hat 

klang gefunden haben, wie 


man sich jetzt auf die Um- 

die vielen Zuschriften be- 


Setzung von erfolgreichen 

weisen, werden wir sie auch 


Comic-Bänden bekannter 

in Zukunft beibehalten. 


Autoren spezialisiert. 

Auch in diesem Monat kom- 


Nach der gelungenen Bob- 

men die Schneider/Amstrad- 


Moran-Trilogie, die wir für 

CPC-Besitzer sehr gut weg. 


LOAD & RUN 5/88 getestet 

Eine lange Poke-Liste für 


haben, erscheint nun ein 

den CPC soll den bösen 


neues Programm auf dem 

Sprites wieder einmal das 


deutschen Softwaremarkt. 

Leben schwer machen. 


Jeder kennt Bobo, den Aus- 

An dieser Stelle möchte ich 


brecherkönig der Haftan- 

Sie nochmals aufrufen, sich 


stalt Riegelfest, der bereits 

an der Gestaltung der Players 


seit 17 Jahren unsere Lach- 

Pages aktiv zu beteiligen. 


muskeln strapaziert. Zeich- 

Auf gut deutsch: Schicken 


ner Paul Deliege war mit sei- 

Sie uns Pokes, Karten, Tips 


ner Comicfigur damals der 

Tricks, Lösungen oder Fra- 


Durchbruch gelungen. An- 

gen zu jedem x-beliebigen 


fangs fanden Bobos Aben- 

Spiel für jedes x-beliebige 


teuer lediglich in Rolf Kau- 

Computersystem. Als klei- 


kas Fix und Foxi Platz. 

nen Ansporn verlosen wir je- 


Mittlerweile gibt es viele Son- 

den Monat ein Originalspiel, 


derbände mit Bobo und sei- 

deshalb Systemangabe nicht 


nen Kumpanen vom Zucht- 

vergessen! Ich hoffe auf 


haus Riegelfest. 

große Resonanz von Ihrer 


Infogrames ist mit seinem 

Seite. 


neuesten Werk Bobo ein 



Meisterstück gelungen. Wir 

In diesem Sinne wünsche ich 


sind gespannt, wann das 

Ihnen im Namen der Redak- 


Spiel in den internationalen 

tion viel Spaß mit dem neu- 


Software-Hitlisten auftau- 

en LOAD & RUN. 


chen wird. Einen ausführli- 



chen Testbericht lesen Sie in 

Ihr 


dieser Ausgabe. 

Thomas Bosch 
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die unterschiedlichsten Sportsimulationen. 
Vom Fußball über Handball bis zum Eishockey kann 
sich der Sportfreak an seinem Computer zumindest 
theoretisch austoben. Eine Kategorie fehlte bisher: Volleyball. 


U ns stand für den Test 
die Kassettenversion 
für den Schneider 
CPC zur Verfügung. Die et¬ 
was ungewöhnlich lange La¬ 
dezeit wird durch mehrere 
Bilder und Grafik-Effekte 
überbrückt. Danach steht 
ein Menü mit vier Optionen 
zur Verfügung, welche mit 
den Cursor-Tasten ange¬ 
wählt werden. Hier können 
zunächst einige Voreinstel¬ 
lungen wie Verändern der 
Bildschirmfarben (wichtig 
für Grünseher!) oder Aus¬ 
wahl der Steuerung tätigen. 
Auch ein abgespeicherter 
Spielstand kann geladen 
werden. 

Bevor Sie die Option Play 
anwählen, müssen Sie sich 
entscheiden, welche Rolle 
der Computer im Spiel über¬ 
nehmen soll. 

Bis zu 14 Spieler, also zwölf 
Feldspieler und zwei Trai¬ 
ner, können am Volleyball- 
Turnier teilnehmen. Die 
größere Zahl der Spieler er¬ 
höht den Spaß. 

Für Einzelspieler gibt es 
mehrere Möglichkeiten. Der 
Computer kann die volle 
Kontrolle über die Mann¬ 
schaft übernehmen. In die¬ 
sem Fall fungiert der Spieler 
lediglich als Trainer und 
muß im geeigneten Moment 
die Taktik wechseln. 

Eigene Taktiken können mit 
dem integrierten Tatik-Edi- 
tor entworfen werden. Der 
Spieler kann seine Mann¬ 
schaft selbst steuern. 


Sehr gut gelungen ist dem 
Autor die Animation der 
Spielfiguren und des Balles, 
welche sich zwar etwas lang¬ 
sam, dafür aber völlig flim¬ 
merfrei über den Bildschirm 
bewegen. Untermalt wird 
das ganze Spektakel von 
diversen Sound-Effekten 
wie dem Aufklatschen des 
Balles oder dem Pfeifen des 
Schiedsrichters. 

Durch zahllose Varianten, 
Möglichkeiten und Optio¬ 
nen wird mit dem Volley¬ 
ball-Simulator jedem die 
Möglichkeit gegeben, „sein" 
Spiel zu machen, egal, ob 
jemand schon mal einen Ball 


in der Hand gehalten hat 
oder nicht. Die 50seitige 
deutsche Anleitung führt 
ausführlich und informativ 
in das Spielgeschehen ein, 
so daß auch Volleyball-Neu¬ 
linge bereits nach wenigen 
Seiten die wichtigsten Re¬ 
geln beherrschen. • TB 


Titel: The Uolleyball-Simulator 

Getestet: Schneider CPC 

Umsetzungen: C-64. C-128 (geplant: Rm iqa, Htari ST) 


Im Test: 
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reis (DM): |^| Joystick 
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Spiele 


• Nach ihrem Superhit Vampire's Empire 
brachte das Edel-Softwarehaus Magic Bytes 
ein qualitativ kaum unterlegeneres Produkt auf 
den deutschen Markt. Das Geschicklichkeitsspiel 
„Pink Panther" bringt die Handlung der bekannten 
Fernsehserie in Ihren Rechner. 



D ie Handlung von 

Pink Panther kann 
nicht gerade als eh¬ 
renwert bezeichnet werden. 
Unser Held Paulchen ist mal 
wieder total abgebrannt und 
braucht dringend Geld, um 
sich über Wasser zu halten. 
Deshalb sucht er sich einen 
Job bei den Reichsten der 
Stadt als Hausdiener. Aller¬ 
dings hat er dabei einen 
ganz gemeinen Hintergedan¬ 
ken: Tagsüber in den nob¬ 
len Häusern wohnen und 
nachts dann eben diese von 
sämtlichen Wertgegenstän¬ 
den befreien. 

Reiche Hausherren 
ausrauben 

Fünf Hausherren würden 
schon ausreichen, um sich 
einen Urlaub im sonnigen 
Süden leisten zu können. 
Leider hat er dabei nicht 
damit ausgerechnet, daß die 
Eigentümer Schlafwandler 
sein könnten. Auch Inspek¬ 
tor Clouseau ist nicht un¬ 
tätig und versucht, Paulchen 
auf frischer Tat zu ertappen. 
Deshalb schnüffelt auch er 
nachts ständig durch die 
Häuser. Paulchen muß also 
auf passen, daß er während 
seiner nächtlichen Raubzüge 
weder Clouseau trifft, noch 
daß ein Hausherr versehent¬ 
lich gegen den Wandschrank 
schlafwandelt und dadurch 
unsanft bei seinem Spazier¬ 
gang gestört wird. Gelingt es 
ihm, eine Villa komplett 
auszuräumen, kann er mit 
der nächsten weitermachen. 



Insgesamt gibt es fünf Villen 
auszuräubern, bis das Spiel 
gewonnen ist. 

Ist das Spiel geladen, so ste¬ 
hen Sie vor der Wahl, ob Sie 
ins Kaufhaus gehen, um sich 
passend zu kleiden, oder 
sich aber gleich um einen 
Job bewerben, was für den 
Anfang wohl das Vernünfti¬ 
gere ist. Nach einem kurzen 
Gespräch mit Ihrem neuen 
Herrn können Sie dann 
gleich mit der Arbeit anfan¬ 
gen. Natürlich kommt in 
diesem Game nur das nächt¬ 
liche — wesentlich interes¬ 
santere - Leben Paulchens 
zur Geltung.. Sie sehen das 


Haus, dessen Etagen und 
Einrichtungen wie Möbel 
und Bilder von der Seite. 
Bewegen Sie den Joystick, 
so scrollen der Vorder- und 
Hintergrund fließend in alle 
Richtungen mit. 

Die Grafiken aller Objekte 
sind hervorragend gezeich¬ 
net und stimmen in allen 
Details, auch in der Farbe, 
mit dem Trickfilm-Vorbild 
überein. Die Programmierer 
haben wirklich auf alles 
Rücksicht genommen. Sogar 
die Knöpfe an den Schrän¬ 
ken und an Stiegengelän¬ 
dern sind hervorragend zu 


erkennen. Die Animation 
der Figuren läßt eigentlich 
nichts zu wünschen übrig. 
Sauber und fließend wan¬ 
delt der schläfrige Hausherr 
durch die Flure, während 
ihm der Panther alle mög¬ 
lichen Gegenstände aus dem 
Weg räumt. Inspector Clou¬ 
seau spaziert pixelgenau 
durch die Gegend. 

Der Sound hingegen ist et¬ 
was zu kurz gekommen. Nur 
ein monotones Gedudel des 
berühmten Soundtracks 
wird rauf und runter ge¬ 
spielt. Daneben sind natür¬ 
lich noch die üblichen Hin¬ 
tergrundgeräusche ä la 
„Knacks" und „Rumms" 
zu hören. Wenigstens die 
Melodie hätten die Program¬ 
mierer ansprechender ma¬ 
chen können. 

Auch mit der Motivation 
sieht es nicht ganz so gut 
aus. Viel Action und Hektik 
sind bei der ganzen Hand¬ 
lung nicht drin. Bereits nach 
einigen nächtlichen Streifzü¬ 
gen wird die Ausrauberei 
langweilig, da sich nichts 
Neues mehr bietet. 

Fazit 

Pink Panther kommt leider 
nur in Sachen Grafik an 
Vampire's Empire heran. In 
allen anderen Punkten, be¬ 
sonders aber im Spielspaß, 
schleicht Pink Panther weit 
hinter ihm her. Technisch 
ist das Game jedoch durch 
und durch gelungen. Freun¬ 
de von ruhigeren Denk- und 
Geschicklichkeitsspielen 
sollten am rosaroten Pant¬ 
her nicht vorbeisehen. • mn 


Titel: Fink Panther 

Getestet: Rmigo 

Beisetzungen: Uteri ST, Schneider CPC, C-64 
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Wß^F Jeder Comic-Fan kennt Bobo, 

den König der Ausbrecher. 
Seit nunmehr 17 Jahren versucht er, 
aus dem Gefängnis Riegelfest auszubrechen, 
weil er dort ständig schikaniert wird. Infogrames 
hat ihre „Collection Spirou" um die Abenteuer 
Bobos erweitert. 


S ie werden für den 
Atari ST mit ROM¬ 
TOS auf zwei Dis¬ 
ketten geliefert und beste¬ 
hen aus sechs Einzelspielen, 
die Sie entweder der Reihe 
nach oder auch einzeln spie¬ 
len können. Maximal sechs 
Spieler können sich an dem 
Spektakel beteiligen. 

Das erste Spiel läuft in der 
Kantine des Gefängnisses 
ab. Bobo muß seinen hung¬ 
rigen Kameraden Essen auf¬ 
tischen, sonst droht eine 
Meuterei. Schafft er es 
nicht, alle zufrieden zustel¬ 
len, bekommt er den Napf 
aufgesetzt und das Spiel ist 
beendet. 

In einer weiteren Szene muß 
Bobo einen großen Haufen 
Erdäpfel schälen. Gar nicht 
so einfach, da der Haufen 
ständig größer wird. Die Sa¬ 
che muß gründlich gemacht 
werden, denn schlecht ge¬ 
schälte Kartoffeln kommen 
wieder zurück. Dieses Spiel 
ist beendet, sobald Bobo 
von ungeschälten Kartoffeln 
überschwemmt wird. 

Den Boden aufzuwischen ist 
Bobos verhaßteste Arbeit, 
denn seine Kumpane haben 
die schlechte Angewohn¬ 
heit, genau da vorbeizuge¬ 
hen, wo unser Held den 
Putzlappen schwingt. Da 
der Boden feucht ist, hinter¬ 
lassen sie Spuren und Bobo 
muß hinterherwischen, denn 
alles muß blitzblank sein, 
wenn der Herr Direktor zur 
Inspektion kommt. 

Wenn die Gefängiswärter 
mal wieder streiken, versu¬ 
chen natürlich die Insassen, 


auszubrechen. Diesmal 
springen sie vom Fenster 
herab auf ein Trampolin, 
das sie dann über die Mauer 
befördert. Bobo, intelligent 
wie er ist, hat die Aufgabe 
übernommen, das Trampo¬ 
lin von Fenster zu Fenster 
zu schieben. Verständlich, 
daß seine Kumpane nicht 
begeistert sind, wenn sie ins 
Leere springen. 

Im nächsten Spiel ist Bobo 
endlich die Flucht gelungen. 
Er balanciert auf Stromka¬ 
beln herum und muß dabei 
von einem auf das andere 
springen, um den Spannungs¬ 
blitzen auszuweichen, die 


seiner Gesundheit schaden 
können. 

Nach einem erfolgreichen 
Tag legt sich ein professio¬ 
neller Ausbrecher müde ins 
Bett und möchte schlafen. 
Leider schnarchen die Zel¬ 
lenkollegen so laut, daß dies 
unmöglich ist. Bobo bleibt 
nichts anderes übrig, als 
aufzustehen und jeden ein¬ 
zelnen zu beruhigen. Dabei 
darf er nicht über Nachttöp¬ 
fe oder ähnliche Gegenstän¬ 
de stolpern. 

Alle sechs Spiele sind gra¬ 
fisch sehr sauber und detail¬ 
liert gestaltet. Die Bewegun¬ 
gen der Figuren erfolgen 


völlig fließend und ruckfrei. 
Zu jedem Spiel erklingt eine 
flotte Hintergrundmusik, 
die den Spieler anspornt. Je¬ 
des Spiel verfügt zusätzlich 
über einige nette Effekte. Es 
kann zum Beispiel passieren, 
daß beim Trampolinsprin¬ 
gen ein Gefangener zu flach 
abspringt und, statt über die 
Mauer zu segeln, mit einem 
dumpfen „Boing” dagegen 
kracht, langsam runter¬ 
rutscht, den Kopf schüttelt 
und erneut das Absprungge¬ 
bäude betritt. 

Fazit 

Bobo ist ein Spiel, das ein¬ 
fach Spaß machen muß, vor 
allem dann, wenn mehrere 
Spieler gegeneinander antre- 
ten. Wettbewerbe wie bei¬ 
spielsweiseein Punktekampf 
können problemlos realisiert 
werden. Die gute Grafik und 
der gelungene dreistimmige 
Sound lassen die Spielmoti¬ 
vation enorm ansteigen. Wer 
Bobo noch nicht kennt, soll¬ 
te sich sofort auf den Weg 
zum Computer-Fachhändler 
machen. • TB 
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Eine recht günstige Anschaffungsgelegenheit 
für die ansonsten nicht billige Amiga-Software 
sind die mittlerweile beliebt gewordenen Game-Sampler. 

Mit ihnen erhält man mehrere Spiele, die zwar oft nicht mehr 
zu den Neuesten gehören, aber trotzdem gut sind, zum Preis von einem. 



riolasoft vertreibt 
seit einiger Zeit in 
Deutschland einen 
neuen Sampler namens 
„Computer Hits". 

Mit den vier Titeln handelt 
es sich um Deep Space, 
Hacker II, The Little Com¬ 
puter People und Brataccs. 

Deep Space — 

Krawall im Weltraum 

Bei Deep Space handelt es 
sich um ein Weltraum-Spiel 
mit dem Blickpunktaus dem 
Cockpit eines Kampfraum¬ 
schiffes. Wie bei vielen ande¬ 
ren Games dieser Sorte 
kommen alle erdenklichen 
Gegenstände und Objekte 
auf Sie zugeflogen. Darunter 
sind, wie sollte es auch an¬ 
ders sein, auch Asteroiden 
und feindliche Raumjäger, 
die Sie unbedingt abknallen 
sollten, da nämlich Sie sonst 
schnell vom Himmel gefegt 
werden. Das Spiel verfügt 
über einige Extrafunktio¬ 
nen, wie verstellbare Ra¬ 
darschirme und Schutzschil¬ 
de, die recht hilfreich sein 
können. Im Großen und 
Ganzen ein ganz nettes Spiel 
für zwischendurch, das aber 
schnell eintönig wird. 

Hacker II — 

The Doomsday Papers 

Bei Hacker II sieht es da 
schon ganz andersaus. Hier¬ 
bei handelt es sich um ein 
technisch sehr komplizier¬ 
tes und forderndes Spiel, 
das Sie sicher länger vor 
dem Bildschirm festhalten 
wird. 


Bei ihm müssen Sie per Da¬ 
tenfernübertragung einen 
Roboter in einem unterirdi¬ 
schen Bunkerkomplex in 
Sibirien umhersteuern und 
mit seiner Hilfe wichtige 
amerikanische Geheimdo¬ 
kumente finden. Die Wa¬ 
chen und Video-Überwa¬ 
chungskameras, die Sie übri¬ 
gens manipulieren können, 
versuchen das natürlich zu 
vereiteln. Grafik und Sound 
liegen beim Durchschnitt. 
Insgesamt ist Hacker II ein 
durchweg ansprechendes 
und interessantes Game. 


Little Computer People 

Wußten Sie schon, daß in 
Ihrem Rechner ein kleines 
Männchen wohnt? Und die¬ 
ses Männchen wartet nur 
darauf, endlich den kennen¬ 
zulernen, dessen Befehle es 
Tag für Tag millionenmal 
ausführt. 

Sie werden sich wundern, 
wie bequem es sich unsere 
Little Computer People in 
der langweiligen IC-Land¬ 
schaft gemacht hat. Ein 
schönes großes Haus mit al¬ 
lem drum und dran, inklu¬ 
sive Hund und Klavier, paßt 
leicht in ihren Computer. 


Mit Hilfe eines komplizier¬ 
ten, aus Forschungsgründen 
generierten Programm ist es 
gelungen, dieses Haus auf 
dem Monitor sichtbar zu 
machen. 

Little Computer People 
kann eigentlich nur bedingt 
als Spiel bezeichnet werden, 
da es hier nichts zu spielen 
gibt — nur zu beobachten. 

Unterhaltung per 
Tastatur 

Über die Tastatur können 
Sie sich mit dem Männchen 
unterhalten und es wird 
dementsprechend darauf 
reagieren. 

Die Grafik ist gelungen und 
sehr niedlich ausgefallen. 
Ein „Spiel", mit dem Sie 
sich länger beschäftigen 
können, da offenbar noch 
niemand seinen privaten 
Mann genau kennt. Über¬ 
raschenderweise tauchen im¬ 
mer wieder völlig neue Si¬ 
tuation auf. Mein Compu¬ 
termännchen hat sich zum 
Beispiel immer strikt ge¬ 
weigert, ein Bad zu nehmen. 
Nachdem ich ihn etwas ag¬ 
gressiver dazu aufgefordert 
und sogar geschimpft habe, 
ist er murrend aber zügig in 
die Wanne gestiegen. 

Brataccs - Gejagt 
vom ganzen Universum 

Das letzte Game dieses 
Samplers bereitet bei seiner 
Beurteilung gemischte Ge¬ 
fühle. Obwohl die Idee gut 
und das Spiel an sich sauber 
programmiert ist, kann es 
nicht recht überzeugen. 

Sie sind ein Flüchtling, der 
von Polizei und Mafia gejagt 
wird. Ihnen wird das schwe¬ 
re Verbrechen des „geneti¬ 
schen Betrugs" zur Last ge¬ 
legt. Was immer das auch 
sei, jedenfalls haben Sie be¬ 
schlossen, von der Erde zu 
verschwinden und sich auf 
einen kleinen Bergwerks¬ 
asteroiden, Brataccs, tele- 
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portiert. Hier soll irgendwo 
der Beweis Ihrer Unschuld 
sein. Natürlich wissen Sie 
nicht im geringsten, wie der 
Beweis aussieht und müssen 
sich somit mit der Bevöl¬ 
kerung Brataccs' auseinan¬ 
dersetzen. Wie bei allen We¬ 
sen gibt es auch hier die un¬ 
terschiedlichsten Typen, 
manche freundlich, manche 
feindlich gesinnt. 

Als Spieler führen Sie Ihren 
Schützling per Tastatur oder 


D ie Story: Die Haupt¬ 
person ist ein etwas 
zu groß geratener, 
aber dennoch recht liebens¬ 
werter Troll namens Hum- 
gruffin. Dieser ist durch ei¬ 
nen Fluch in die Unterwelt 
von Narc geraten, ein un¬ 
heimliches Land voller Kri¬ 
stallhöhlen, bevölkert von 
einem Stamm von Kobol¬ 
den, die nichts als Böses im 
Sinne haben. Er weiß, daß 
seine einzige Chance, lebend 
aus dieser Welt zu fliehen, 
darin besteht, den Fluch 
umzudrehen. Nur durch das 
Sammeln von bestimmten 
Kristallen, die in sein Amu¬ 
lett passen, ist dies möglich. 
Hiermit ist das Ziel von 
Troll eigentlich schon ge¬ 
nannt: Wandern Sie durch 
zahlreiche Räume und sam¬ 
meln Sie die Kristalle auf. 
Natürlich versuchen die Ko¬ 
bolde und allerlei anderes 
Ungetier, Sie an diesem Vor¬ 
haben zu hindern. Um Ihre 
Mission erfolgreich zu be¬ 
stehen, sind Sie mit sehr 


Maus über den Bildschirm. 
Die Steuerung ist derart 
komplex und empfindlich, 
daß sie dem Anfänger einige 
Schwierigkeiten bereitet. 

Die Grafik erreicht nicht 
den heutigen Standard. 
Vom Sound wollen wir gar 
nicht reden. Das wäre alles 
nicht so schlimm. Aber 
woran es Brataccs wirklich 
fehlt, ist Spielwitz. Bereits 
nach einigen Minuten wird 
das Spiel langweilig. Für 


eigentümlichen Waffen aus¬ 
gerüstet. Um immer bereit 
zu sein, tragen Sie ständig 
eine gewisse Zahl von Lö¬ 
chernd) in Ihren Taschen 
mit, um sie bei Bedarf ei¬ 
nem Kobold vor die Füße 
zu werfen, der auf Nimmer¬ 
wiedersehen darin ver¬ 
schwindet. Ein Kobold be¬ 
nötigt seinerseits ein Loch, 
um in den nächsten Raum 
zu kommen. Diese Art von 
Löchern trägt er aber nicht 
bei sich, sie müssen erst vom 
Oberzwerg Fjalar beschwo¬ 
ren werden. 


Freaks, die sich gerne mit 
komplizierten Games be¬ 
schäftigen ist es aber sicher 
gar nicht so schlecht. 

Fazit 

Computer Hits enthält teil¬ 
weise Spiele aus der An¬ 
fangszeit des Amiga, als er 
noch mindestens 4.000 
Mark kostete. Deshalb nutzt 
keines der Games den Rech¬ 
ner vollkommen aus. Be- 


Die durch die Story des 
Spiels erweckten Hoffnun¬ 
gen werden jedoch durch 
seine Grafik enttäuscht. Auf 
dem Bildschirm präsentiert 
sich ein annähernd dreidi¬ 
mensionales Spielfeld, auf¬ 
gebaut aus vielen einzelnen 
Plateaus. Die Figuren, also 
die Kobolde und der Troll, 
erscheinnen darauf fast un¬ 
sichtbar klein. Hinzu 
kommt die zwar recht ge¬ 
lungene Farbgebung, die 
aber bei einer dermaßen 
klein geratenen Grafik das 
ganze noch unübersichtli- 


denkt man aber, daß Sie 
zum (anfangs etwas hoch er¬ 
scheinenden) Preis von 
knapp achtzig Mark gleich 
vier Games bekommen, so 
wird sich mancher überle¬ 
gen, ob er nicht zugreift. 
Zwei der Spiele sind unbe¬ 
dingt empfehlbar: Hacker II 
und Little Computer People. 
Die anderen haben einige 
Macken, gehören aber trotz¬ 
dem nicht zur schlechte¬ 
sten Sorte. • mn 


eher macht. Die Animation 
erfolgt zwar recht schnell, 
ist aber .trotzdem sehr 
ruckelig. 

Da das Spielfeld sehr klein 
geraten ist, erweckt es den 
Anschein, als sei eine ganze 
Menge darauf los. Trotzdem 
fällt bei genauerem Betrach¬ 
ten auf, daß sich nicht mehr 
als acht Sprites auf dem 
Bildschirm befinden. 
Lobenswert ist die Musikun¬ 
termalung. Während des 
Spielablaufs tönt ständig ei¬ 
ne fetzige und hervorragend 
komponierte Melodie aus 
dem Lautsprecher. Dafür ist 
jedoch der Sound zu kurz 
gekommen, was allerdings 
kaum auffällt. 

Die Steuerung macht das 
Game enorm schwierig. Lei¬ 
der wird sie unkorrekt und 
viel zu nervös abgefragt und 
umgesetzt. Dadurch ist es 
fast unmöglich, den Troll 
genau zu steuern. „Troll” ist 
dadurch fast unspielbar. 

Das Interesse am Spiel ver¬ 
liert sich dadurch bereits 
nach kurzer Zeit. • mn 
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Jump-and Run-Spiele sind in. 
Um sie erfolgreich auf den Markt zu bringen, 
muß man sie nur neu verkleiden und sich immer 
wieder fantasiereiche Geschichten dazu einfallen lassen. 
Ein neues Produkt nach diesem Schema nennt sich kurz und 
bündig Troll und verdankt seine Existenz dem Hause Denton Designs. 
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w Ein neues Autorennspiel reißt inzwischen 

niemanden mehr vom Hocker. So war ich auch relativ abgeneigt, 
ein solches Spiel zu testen. Was sollte da schon "top" sein? Meine 
Meinung mußte ich aber sehr schnell ändern .. . 

TOP FUE 
ELIMINA 


S ie befinden sich in 
einem Fahrzeug mit 
über 2500 PS unter 
der Haube. Der Wagen wur¬ 
de speziell für Sie gebaut, 
um Sie in kürzestmöglicher 
Zeit zu einem 400 Meter 
entfernten Ziel zu bringen. 

2500 PS unter der 
Haube 

Ihre Reflexe müssen blitz¬ 
schnell sein, denn dies ist 
wie das Steuern einer Rake¬ 
te, die auf dem Boden ent¬ 
langgleitet. Top Fuel El i- 
minator ist die Simulation 
einer ganzen Dragster-Renn- 
saison. Die Saison besteht 
aus neun Rennereignissen 
und wird auf der Basis eines 
einheitlichen Punktesystems 
bewertet. 

Sie müssen gegen acht der 
besten Rennfahrer der Welt 
antreten. Um ein Rennen 
zu gewinnen oder sogar nur, 
um ohne größeren Schaden 
ans Ziel zu kommen, müssen 
Sie auch auf die Wetterbe¬ 
dingungen und den Fahr¬ 
bahnzustand achten und Ih¬ 
ren Dragster entsprechend 
darauf einstellen. Fast wie 
im richtigen Leben. 

Top Fuel Eliminator bietet 
Ihnen eine Vielzahl von 
.Optionen an, mit denen Sie 
Ihre Gewinnchancen beein¬ 
flussen und erhöhen können. 
Unter anderem können Sie 
Ihren Flitzer mit verschie¬ 
denen Reifen oder sonstigen 
Zusatzgeräten ausrüsten. 
Tanken nicht vergessen, 
sonst geht sowieso nichts. 
Sind alle Vorbereitungen 


getroffen, kann's losgehen. 
Das Steuern des Rennwa- 


riger, als ich zunächst ange¬ 
nommen hatte. Gerade als 


unter Kontrolle gebracht 
habe, drängt mich ein Sei¬ 
tenwind an die Leitplanke. 
Also das Ganze nochmal 
von vorne. Diesmal klappts, 
mein Wagen passiert elegant 

Übermut tut selten gut 

die Ziellinie und kracht ge¬ 
gen die Zuschauertribüne. 
Aber macht nichts , passiert 
ist passiert. Auf zum Halb- 
Finale. 

Im Laufe des Tages gelangte 
ich noch bis zur zweiten 
Rennstrecke, dann war mein 
Auto so kaputt, daß mich 
die Reparatur zu teuer ge¬ 
kommen wäre. Na, wenig¬ 
stens durfte ich mich in der 
Highscore-Liste verewigen. 

Fazit 

Anfängern ist Top Fuel Ele- 
minator nicht zu empfehlen, 
aber auch reine Action- 
Rennfreaks werden keine 
Freude an diesem Spiel ha¬ 
ben. Es bietet so viele Op¬ 
tionen und Möglichkeiten, 
daß es ziemlich lange dauern 
kann, bis Sie sich damit zu¬ 
rechtfinden. Wenn Sie sich 
aber erstmal auskennen, wer¬ 
den Sie garantiert auf lange 
Zeit viel Spaß am Spiel ha¬ 
ben. Und selbst wenn der 
Top Fuel Eliminator einmal 
in der Schublade landen 
sollte: An einem langen 
Winterabend wird er be¬ 
stimmt wieder hervorgeholt 
werden, da er sich wohl¬ 
tuend von der Masse der 
Autorennspiele abhebt. Den 
Kauf bereut mit Sicherheit 


gens ist wesentlich schwie- 


ich meinem Flitzer endlich 


niemand. • 
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die Breakout-Welle einen neuen Auf¬ 
schwung. Der Grund hieß Arkanoid. 
Nun ist die Fortsetzung da: Arkanoid II. 


te einige Features auf, die 
das Spiel äußerst positiv von 
der Masse der Breakout-Ver¬ 
sionen abheben. Einige der 
Mauerstücke lassen nämlich 
eine Art Pille zu Boden sin¬ 
ken, wenn sie vom Ball ge¬ 
troffen wurden. Nimmt der 
Spieler sie mit seinem 
Schläger auf, kann dies, je 
nach Farbe der Pille, unter¬ 
schiedliche Wirkungen ha¬ 
ben. Der Schläger kann ver- 



Spannung und Faszination machen dieses Spiel zu einem heißbe¬ 
gehrten Game. Die Grafik unterstützt diese Aussage voll und ganz. 


D ie Breakout-Welle 
reißt nicht ab. Es 
dürfte kein Compu-1 
tersystem mehr geben, für 
das nicht auch ein Breakout 
zu haben ist. Verständlich,! 
denn schließlich macht diese 
Spielegattung sehr viel Spaß. I 
Erstaunlich ist nur, daß sich 
Breakout-Versionen immer 
noch auf dem Software-! 
markt, der ja schon seit Jah-1 
ren von außergewöhnlichen 
Spielideen verwöhnt wird,! 
behaupten können. Beson-| 
ders Imagine Software hat 
sich durch Arkanoid vor ei-1 
nem knappen Jahr einen gu-l 
ten Namen gemacht. Ange-J 
nehm überrascht waren wir 
daher, als vor einigen Tagen 
der Nachfolger von Arka¬ 
noid in der Redaktion ein¬ 
traf: Arkanoid II - Revenge 
of Doh. Das Spiel steht sei¬ 
nem Vorgänger in nichts 
nach. Lassen Sie sich des¬ 
halb warnen: Es macht süch¬ 
tig. 

Breakout — 
ein Klassiker 


lassen kann. Der Spieler 
übernimmt die Steuerung 
des Schlägers. Verfehlt er 
den Ball, wird ein Leben ab¬ 
gezogen. 

Dasselbe Prinzip Wird auch 
bei Arkanoid II angewandt. 

Einmalige Features 

Wie schon der Vorgänger 
weist diese Breakout-Varian- 


breitert oder verschmälert 
werden, was die Treffsicher¬ 
heit steigert beziehungswei¬ 
se vermindert. Manchmal 
läßt sich der Schläger in eine 
Kanone umwandeln, mit 
welcher Sie die Steine ein¬ 
fach abschießen können. 
Das geht natürlich viel 
schneller. Ein besonderer 
Leckerbissen ist die Pille mit 
der Aufschrift ,,B". Durch 


sie können Sie nämlich pro¬ 
blemlos ins nächste Level 
wechseln und gleichzeitig 
auch noch eine Menge Bo¬ 
nuspunkte einstreichen. 

Viel Spaß durch viele 
Levels 

Arkanoid II besitzt so viele 
Level, daß es ziemlich lange 
dauern kann, bis Sie alle ge¬ 
sehen haben. Damit sei we¬ 
nigstens eine lang anhalten¬ 
de Spielmotivation garan¬ 
tiert, werden Sie jetzt sicher 
denken. Viel besser - dieses 
Spiel macht süchtig. So un¬ 
wahrscheinlich es auch klin¬ 
gen mag, aber wer einmal 
Arkanoid II gespielt hat, 
kommt so schnell nicht 
mehr vom Computer los. 
Wir in der Redaktion saßen 
stundenlang gebannt vor 
den Monitoren. Wenn uns 
vor einem Monat jemand ge¬ 
sagt hätte, daß uns ein 
Breakout so faszinieren wür¬ 
de, hätten wir ihn wohl mit 
einem Lächeln abgespeist. 
Nun, Arkanoid II - Reven¬ 
ge of Doh hat uns eines Bes¬ 
seren belehrt. 

Fazit 

Das Game kann jedem, ob 
Ballerfreak oder Arcade- 
Champ, uneingeschränkt 
empfohlen werden. Am be¬ 
sten, Sie reservieren sich 
gleich noch heute ein Exem¬ 
plar bei Ihrem Computer- 
Fachhändler, sonst kann es 
leicht passieren, daß Ihnen 
ein anderer Arkanoid-Süch- 
tiger zuvorkommt. • TB 


Für Computerneulinge sei 
hier kurz das Breakout-Prin- 
zip erläutert: Es gilt, mit ei¬ 
nem Ball eine Mauer aus 
Einzelsteinen zu zerstören. 
Trifft der Ball auf einen 
Stein, so verschwindet die¬ 
ser und der Spieler erhält ei¬ 
nen Punkt gutgeschrieben. 
Der Ball trifft abwechselnd 
auf die Mauer und einen 
Schläger, der sich am unte¬ 
ren Bildschirmrand nach 
links und rechts bewegen 
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getier, das die Schilde durch¬ 
brochen hat, vernichten. 

Fleißig Ballern ist 
angesagt 

Dieser Patrouille gehören 
auch Sie an. Sie haben vier 
Minisaurier zur Verfügung, 
die Sie nach Bedarf verwen¬ 
den können. Natürlich darf 
auch eine Schußwaffe nicht 
fehlen, mit der Sie unter 


'Rim' 




Immer neue Katastrophen 
bahnen sich in den hintersten Ecken 
des Universums an. Immer neue macht¬ 
hungrige Herrscher greifen in das friedliche 
Alltagsleben idyllischer Planeten und Monde ein. 
So auch bei Rimrunner von Palace Software. 


4.357 unserer 

r Science-Fiction-Serie 
handelt von den 
armen Ameisigen, die stän¬ 
dig von den bösen Rickrak- 
^ern angegriffen werden. 
Um ihre Kolonien zu schüt¬ 
zen, verwenden die Amei¬ 
sigen Kraftschilder, mit de¬ 
nen sie große metallene Ge¬ 
genstände abwehren kön¬ 
nen, so auch die Rickracker- 
Sturmtruppen. 


Die Kraftgeneratoren, die 
die Schutzschilde für lange 
Zeit aufrechterhalten, brau¬ 
chen ungeheure Energie¬ 
mengen, die ihnen ständig 
zugeführt werden müssen. 
Dafür sind die Randpatrouil¬ 
len verantwortlich, die am 
äußersten Rand einer Kolo¬ 
nie eingesetzt werden und 
mit ihren schnellen Reit- 
Reptilien die Generatoren 
aufladen und allerlei Klein¬ 


sich herausgestellt hat, gibt 
es eine ganze Menge Ein¬ 
dringlinge. 

Nach einem kurzen Lade¬ 
vorgang erscheint ein mittel- 
prächtiges Titelbild zum 
Spiel, das einen Ameisigen 
auf seinem Reitsaurier zeigt. 
Wollten wir das Game nach 
seinem Bild beurteilen, so 
fiele die Wertung nicht sehr 
gut aus. Glücklicherweise ist 
das nicht nötig und wir wol¬ 
len weiterladen. Leider erge¬ 
ben sich bei uns ab hier 


ständige Ladefehler, die 
zum Absturz des Systems 
führen. Diese Fehler müssen 
aber nicht bei jeder Version 
auftreten. Trotzdem sollten 
Sie sich vor dem Kauf verge¬ 
wissern, daß der Händler ein 
schadhaftes Spiel zurück¬ 
nimmt. 

Ist das Game komplett in 
den Speicher geladen, so er¬ 
scheint eine gut aufgemach¬ 
te Highscore-Liste. Erst 
nach Tastendruck lädt der 
hervorragend animierte 
Ameisige sein Gewehr durch 
und das Spiel kann begin¬ 
nen. 

Der Spielbildschirm bei Rim¬ 
runner besteht aus einem 
bewegten Vordergrund, auf 
dem die Hauptfigur mit sei¬ 
nem Reittier nach links oder 
rechts reiten kann. Im Hin¬ 
tergrund scrollt die Sil¬ 
houette einer Weltraum ko- 
lonie fleißig den Bewegun¬ 
gen des Sauriers nach. 
Während Sie Ihre Figur über 
den Planeten lenken, fällt al¬ 
lerlei Zeug vom Himmel, das 
Sie abschießen sollten. Ab 
und zu schwebt Ihnen ein 
Generator entgegen. Laden 
Sie ihn auf, denn das ist das 
Ziel des Spiels. Da das nicht 
vom Reittier aus geht, ha¬ 
ben Sie die Möglichkeit, ab¬ 
zusitzen und zu Fuß zu ge¬ 
hen. 

Sowohl die Grafik des Sau¬ 
riers als auch die des Reiters 
ist gut gelungen, sauber ani¬ 
miert und sehr farbenfroh. 
Die Aliens sind zwar sauber 
konstruiert, allerdings nur in 
den seltensten Fällen nen¬ 
nenswert animiert. 

Der Vorder- und Hinter¬ 
grund scrollt fließend in ho¬ 
rizontale Richtungen. Da 
sich der Hintergrund langsa¬ 
mer bewegt, entsteht ein 
gewisser Tiefeneffekt. Auch 
die Gebäude sind sauber ge¬ 
zeichnet und glänzen durch 
ihre Farbenfreude. 

Außer den gut gelungenen 
Grafikeffekten hat das Spiel 
noch mit einigen hervorra¬ 
genden Musikstücken aufzu¬ 
warten. Besonders der 
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Soundtrack der Highscore- 
liste läßt keine Wünsche 
mehr offen. Aber auch die 
Hintergrundgeräusche wur¬ 
den gut programmiert. So¬ 
wohl die Explosionen und 
Schußgeräusche als auch der 
Pfiff des Ameisigen, der sein 
Reittier zu sich ruft, tönt 
ansprechend aus dem Laut¬ 
sprecher. 

Altmodisches 

Spielprinzip 

Trotz dieser vielen Pluspunk¬ 
te fehlt es Rimrunner an et¬ 
was sehr Wichtigem: der 
Originalität. Das Spielprin¬ 
zip ist absolut nichts Neues, 
ganz im Gegenteil: Die Pro¬ 
grammierer scheinen in die 


Anfangszeit des Commodo- 
re 64 zurückgekehrt zu sein. 
Allerdings nur in ihren 
Ideen, nicht in den Pro¬ 
grammiertechniken. 

Durch die altmodische 
Spielidee flaut die anfäng¬ 
liche Begeisterung über Gra¬ 
fik und Sound schnell wie¬ 


der ab und verwandelt sich 
in Langeweile. 

Fazit 

Hätte Rimrunner nicht diese 
antiquierte Spielidee, wäre 
ein erstklassiges Actiongame 
daraus geworden. In Sachen 
Grafik und Sound hat das 


neue Palace-Produkt näm¬ 
lich eine ganze Menge zu 
bieten. So aber wird es 
schnell langweilig, da sich 
die gesamte Handlung auf 
hirnloses Ballern beschränkt. 
Fans solcher scrollenden 
Ballergames kommen jedoch 
auf ihre Kosten. • mn 
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Vor einem guten halben Jahr 
überraschte der Engländer Gremlin 
mit einem Software-Sampler für den C64. 
„10 Great Games" eroberte relativ schnell 
die Hitparaden. Jetzt ist der Nachfolger da. 





oftware-Sampler, 
auch Compilations 
genannt, sind eine 
tolle Sache. Der Käufer er¬ 
wirbt in der Regel fünf bis 
zehn Spiele zum Preis von 
einem. Die Spiele sind des¬ 
halb aber keineswegs 
schlecht oder seit langem 
aus der Mode, sondern le¬ 
diglich nicht mehr die neue¬ 
sten auf dem aktuellen Soft¬ 
ware-Markt. Oft lohnt sich 
der Kauf eines solchen 
Samplers wesentlich mehr 
als der eines schlechten ak¬ 
tuellen Spieles. So auch bei 
,,10 Great Games II" von 
Gremlin. 

Auf drei Kassetten bezie¬ 
hungsweise Disketten befin¬ 


den sich, wie der Name 
schon sagt, zehn Spiele für 
den C64. Ob es auch Umset¬ 
zungen für andere Compu¬ 
tersysteme geben wird, ist 
noch nicht bekannt. 

Auf Kassette beziehungswei¬ 
se Diskette eins finden Sie 
die Spiele Water- Polo, Re- 
bounder, Convoy Raider 
und Samurai Triology. Be¬ 
sonders hervorzuheben ist 
Water Polo. Sie sind einge¬ 
laden, an einer Partie Was¬ 
serball teilzunehmen. Ver¬ 
helfen Sie ihrer Mannschaft 
zu Sieg und Ruhm. Gute 
Grafik und flotter Sound 
unterstützen Sie dabei. 

Auf Datenträger zwei gibt's 
die Fortsetzung des Klassi¬ 


kers Jack The Nipper. Dies¬ 
mal muß Jack in kompli¬ 
zierten Höhlensystemen sei¬ 
ne Bosheit unter Beweis 
stellen. 

Wer den gleichnamigen Ki¬ 
nofilm gesehen hat, darf sich 
Basil, The Great Mouse De- 
tective nicht entgehen las¬ 
sen. Lösen Sie einen schwie¬ 
rigen Fall in Londons schä¬ 
bigen Hafenstraßen und to¬ 
ten Wasserkanälen. 

Wenn Sie sich statt mit un¬ 
gelösten Rätseln lieber mit 
brutalen Gegnern herum¬ 
schlagen, dann ist Mask ge¬ 
nau richtig für Sie. Bekämp¬ 
fen Sie mit ihren Truppen 
die bösen und trügerischen 
Venoms. 


Auf Datenträger Nummer 
drei finden sich Bulldog, 
Thing Bounces Back und 
Auf Wiedersehen Monty. Da 
die drei Programme noch re¬ 
lativ aktuell sind, verzichte 
ich auf eine nähere Beschrei¬ 
bung. 

Fazit 

Wer die einzelnen Spiele 
noch nicht besitzt oder 
kennt, sollte so schnell wie 
möglich zugreifen. Und wer 
ein paar Mark übrig hat, 
kann sich den Vorgänger 
„10 Great Games" auch 
noch anschauen. • TB 
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Daß Spiele nicht unbedingt teuer sein müssen, 
bewies uns wieder einmal die Firma Mastertronic. 
Lesen Sie selbst, womit der bekannte Software-Hersteller 
diesen Monat aufwartet. 



Computer spielen. Aller¬ 
dings ist dieser ein so aus¬ 
gezeichneter Spielpartner, 
daß Sie spätestens nach zwei 
verlorenen Partien die Lust 
verlieren werden. 

Gesteuert wird On Cue mit 
dem Joystick oder über die 
Tastatur. Die Schneider-CPC- 
Besitzer sollten einen Farb¬ 
monitor ihr eigen nennen. 
Zu haben ist das Game für 
den Schneider CPC und den 
Spectrum. 


A lle Spiele werden in 
der gewohnten Pla- 
stikverpackung auf 


Kassette geliefert. Sie ko¬ 
sten zwischen 10 und 15 
Mark. 


On Cue 


Wer eine preiswerte Billiard- 
Simulation sucht, sollte sich 
bei seinem Fachhändler 
nach On Cue erkundigen. 
Gute Grafiken und eine flot¬ 
te Hintergrundmusik lassen 
einer flotten Billiard-Partie 
nichts mehr im Wege stehen. 
Es ( können zwei Spieler ge¬ 
geneinander antreten, nicht 
gerade eine Selbstverständ¬ 
lichkeit bei Simulationen 
dieser Art. Natürlich können 
Sie auch allein gegen den 



The Official FA Cup 
Football 

Ebenfalls für CPC und Spec¬ 
trum wird das offizielle 
Spiel zum Fußball-World- 
Cup angeboten. Sie müssen 
eine oder mehrere Mann¬ 
schaften managen, das heißt 
Begegnungen arrangieren, 
Spieler ein- und verkaufen 
und vieles mehr. Vom Auf¬ 
bau her erinnert dieses Ga¬ 
me an den legendären Foot¬ 
ball Manager. Auch FA Cup 
besitzt keine richtige Grafik, 


an Sound ist lediglich ein 
Piepston zu hören. 

Bis zu acht Spieler können 
teilnehmen. Allerdings wirkt 
sich eine hohe Spielerzahl 
negativ auf die Motivation 
aus, da man länger warten 
muß, bis man wieder an die 
Reihe kommt. Im großen 
und ganzen kann ich Ihnen 
von diesem Game nur abra¬ 
ten, denn der Spielablauf ist 
recht eintönig. Wer jedoch 
an Football Manager Gefal¬ 
len gefunden hat, kann sich 
das Game ja mal ansehen, 
zumal es mit 15 Mark auch 
ist. 
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Impossible Mission 

Mit diesem Game hat Master- 
tronic, wie in letzter Zeit 
schon oft, die Vertriebsrech¬ 
te für einen Oldie erworben, 
den man allerdings besser als 
Goldie bezeichnen sollte. 
Erinnern Sie sich zwei Jah¬ 
re zurück. Ein verrückter 
Professor ist aus dem Irren¬ 
haus ausgebrochen und will 
mal wieder die Welt er¬ 
obern. Zu diesem Zweck 
baut er sich ein unterirdi¬ 
sches Laboratorium, das er 
von Robotern bewachen 
läßt. Im Inneren seiner Höh¬ 
le schmiedet er einen grau¬ 
samen Plan zur Vernichtung 
der Menschheit. Nur ein 
Mann kann ihn stoppen: El- 
vin Atombender, dessen 


Rolle Sie übernehmen dür¬ 
fen. Dringen Sie in das un¬ 
terirdische Reich des Wahn¬ 
sinnigen ein, zerstören Sie 
seine Apparaturen und neh¬ 
men Sie ihn gnadenlos fest. 
Genauso spannend wie die 
Story klingt, ist auch das 
Spiel. Von der Grafik her 
gehört Impossible Mission 
trotz seines Alters immer 
noch zur Spitzenklasse. Alle 
Sprites sind sehr schön ani¬ 
miert und lassen kaum Wün¬ 
sche offen. Zur aktuellen 
Spielsituation erklingen di¬ 
verse Hintergrund-Geräu¬ 
sche, auf manchen Syste¬ 
men sogar digitalisiert. Im¬ 
possible Mission können Sie 
künftig mit dem Joystick 
auf dem C64 und dem 
Schneider CPC spielen. 



The Eidolon 

Vor gut 18 Monaten war 
The Eidolon noch in den 
Software-Top-Ten zu fin¬ 
den. Auch für dieses Spiel 
hat Mastertronic nun die 
Rechte aufgekauft und ver¬ 
treibt es künftig als Billig¬ 


spiel. Ihre Aufgabe ist es, 
mit einem Raumgleiter 
durch ein unterirdisches 
Höhlensystem zu fliegen 
und dabei magische Juwelen 
aufzusammeln. Diese benö¬ 
tigen Sie, um von einem Le¬ 
vel ins nächste zu gelangen, 
denn am Ende jedes Levels 



Seinen Preis von 15 Mark ist 
es allemal wert. Bruce Lee 
ist für C64, Schneider/Am- 
strad und Spectrum erhält¬ 
lich. 

Fazit 

Auf dem Billigsoftware¬ 
markt tut sich einiges, wie 
man sieht. Die LOAD & 
RUN-Redaktion bleibt am 
Ball.« TB 


wartet ein feuerspeiender 
Drache, der magische Juwe¬ 
len überhaupt nicht verträgt. 
Auf Ihrem Höhlenflug wer¬ 
den Ihnen viele Gesellen be¬ 
gegnen, die Ihr Raumschiff 
zerstören wollen. Gewagte 
Ausweichmanöver sind da¬ 


her an der Tagesordnung. 
Gutgemachte dreidimensio¬ 
nale Grafiken und flotte 
Soundeffekte lassen The 
Eidolon zu einem Vergnü¬ 
gen werden. Das Spiel gibt's 
für C64 und Schneider/Am- 
strad CPC. 


Bruce Lee 

Über dieses Spiel brauche 
ich wohl keine großen Wor¬ 
te zu verlieren. Ihre Aufga¬ 
be ist es, als Bruce Lee in 
den magischen Tempel ein¬ 
zudringen und diverse Ge¬ 
genstände aufzusammeln, 
• die Punkte einbringen. 
Bruce Lee ist der Urahn der 
Jump-and-Run-Spiele, macht 
aber immer noch viel Spaß. 
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Witzball: Wie auf dem 
Commodore64 
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liesem Monat git es wieder für jeden Rechner Neuigkeiten 
auf dem Spielesektor. Da im letzten Spiele-Magazin ja nur die Games 
für den Commodore 64 betrachtet wurden (weil keine anderen verfüg¬ 
bar waren), sind in diesem LOAD & RUN auch wieder Spiele für Atari ST 

und Amiga vertreten. 


A uf dem Atari ST gibt 
es diesen Monat 
— außer den im Spie¬ 
leteil ausführlich getesteten 
Games — nur zwei nennens¬ 
werte Neuheiten: Trauma 
und Bob Moran IV, beide 
von der französischen Soft¬ 
warefirma Infogrames. 

Trauma: Im Weltraum 
nichts Neues 

Bei Trauma handelt es sich 
wieder einmal um ein wüstes 
Weltraumballerspiel, wie es 
sie schon zu hunderten gibt. 
Nach Angaben des Herstel- 
ers soll jedoch etwas ganz 
Besonderes an ihm dran 
sein. 

Bob Moran: Abenteuer 
unter Wasser 

Bob Moran IV ist bereits der 
vierte Teil der Helden-Serie. 
Nach den drei Vorgängern 
mit den Titeln Rittertum, 
Im Jungei und Science Fic¬ 
tion spielt der neueste Teil 
tief unter der Meeresober¬ 
fläche. Auch hier hat der 
Held wieder gegen über¬ 
mächtige Feinde zu kämp¬ 
fen und ist wie immer mit 
supermodernen Geräten und 
Waffen ausgerüstet. 

Die Atari-Version ist ganz 
akzeptabel, bei der Commo¬ 
dore 64-Adaption bleibt ab¬ 
zuwarten, ob sie genauso ist, 
wie bei Teil I. 

Für den Amiga gibt es zwei 
Neuheiten, die eigentlich 
nicht so ganz neu sind. 


Strike Force Harrier wurde 
vom Schneider- und Com- 
modore-Rechner auch auf 
den Amiga adaptiert. Her¬ 
aus kam eine mittelmäßige 
Mischung aus Flugsimula¬ 
tor und Aktiongame, die ei¬ 
nem richtigen Simulator wie 
Jet nicht einmal annähernd 
das Wasser reichen kann. In 
Sachen Geschwindigkeit 
bleibt zwar kein Wunsch of¬ 
fen, technisch gesehen un¬ 
terscheidet den Simulator 
von einem primitiven Baller¬ 
spiel mit einigen Extras 


nicht mehr viel. Alle nötigen 
Funktionen sind vorhanden, 
aber auch nicht mehr. Au¬ 
ßerdem fehlt bei Simulator 
die Vorstellung des Flugge¬ 
fühls. Die Landschaft fiel 
sehr monoton aus. Außer 
einigen Feldern und weni¬ 
gen Bergen (Pyramiden) hat 
das Programm nichts zu bie¬ 
ten. Auf dem Commodore 
64 wäre Strike Force Har¬ 
rier eine Wucht, aber auf 
dem Amiga müssen schon 
andere Maßstäbe gesetzt 
werden. 


Eine andere Adaption nennt 
sich Witzball. Auf dem 64er 
schon als Superspiel be¬ 
kannt, wurde es nun auf den 
Sechzehn-Bitter übernom¬ 
men — und enttäuscht eben¬ 
falls ein wenig. Es sind 
kaum Veränderungen ge¬ 
genüber der Commodore- 
Version feststellbar. Der 
Sound ist kläglich. Außer 
einer Titelmelodie tönt nur 
ein dumpfes Aufprall- und 
Ballergeräusch aus dem Laut¬ 
sprecher. Die Grafik wurde 
nur wenig verbessert, ist 
aber trotzdem akzeptabel. 
Vom Spielwitz ging nichts 
verloren, da auch das C64- 
Game eine Menge davon be¬ 
saß. Trotz der wenigen Ver¬ 
besserungen ist Witzball also 
immer noch sehenswert — 
auch auf dem Amiga. 

Iznogud: Eine 
Katastrophe für sich 

Ebenfalls drei neue Games 
gibt es für den Commodo- 
re64. 

Iznogud ist ein weiteres 
Spiel von Infogrames, das 
wir wegen Qualitätsmangels 
nicht ausführlich testen woll¬ 
ten. Es lehnt sich an die be¬ 
kannte Comicserie vom Ka¬ 
lifen an und ist wieder ein¬ 
mal ein reines Geschicklich¬ 
keitsspiel. Qualitativ ist es 
kaum eine Erwähnung wert. 
Ein derart unerkennbares 
Durcheinander von verschie¬ 
denen Pixeln, die Sprites 
darstellen sollen, bekommt 
man selten geboten. Selbst 
das vor einigen Ausgaben 
angesprochene Ninja Ham¬ 
ster ist nichts dagegen. Auch 
der Sound ist eigentlich kei¬ 
ne Erwähnung wert. Izno¬ 
gud ist ein völlig daneben¬ 
geratenes und unspielbares 
Game. Qualitativ eine Kata¬ 
strophe. 

Ein Strategiespeil namens 
Patton versus Rommel ver¬ 
öffentlichte Electronic Arts. 

















Patton Versus Rommel: 
Wüste(r)n Krieg 

Das Game ist spieltechnisch 
sehr komplex aufgebaut. 
Darunter hat die Program¬ 
mierung allerdings nicht we¬ 
nig gelitten. Die Grafik ist 
teilweise nur sehr schwer zu 
erkennen und dazu langsam 
bewegt, obwohl nur Icons 
über eine Landkarte bewegt 
werden. Überhaupt läßt die 
Programmgeschwindigkeit 
etwas zu wünschen übrig. 
Von Electornic Arts ist der 
Bildschirm-Spider eigentlich 
Besseres gewöhnt. Da das 
Strategiespiel zudem den 
Afrikakrieg im Zweiten 
Weltkrieg simuliert, ist Pat¬ 


ton versus Rommel eher ein 
Fall für die Bundesprüfstel¬ 
le als für einen Testbericht. 

Starfleet: VC-20-Zeiten 
im Weltraum 

Aber Electronic Arts schlug 
nocheinmal mit einem Si- 
mulations- und Strategie¬ 
spiel zu. Und wieder ging 
der Schlag daneben. Star¬ 
fleet ist für den Commodo- 
re64 und Amiga erhältlich. 
Wir besprechen jedoch nur 
den CBM-Version, da sie der 
Amiga-Variante fast gleicht 
— oder umgekehrt. Jeden¬ 
falls erweckt Starfleet den 
Eindruck, als wäre für den 
Amiga zu diesem Game 



Neben dem ebenfalls in dieser Ausgabe 
vorgestellten Spiele-Sampler 10 Great Games 


traf von Ariolasoft eine weitere Compilation ein: 
Computer Classics für den Commodore C64 
(128 im 64er Modus). 


A uf der Diskette fin¬ 
den Sie fünf Spiele, 
die zwar nicht mehr 
ganz neu, aber trotzdem 
noch ihr Geld wert sind. 
Vor allem für Ein- und Um¬ 
steiger bieten solche Soft¬ 
ware-Sampler ja bekanntlich 
viel Spiel für wenig Geld. 

Dynamite Dan 

Das seinerzeit äußerst be¬ 
liebte Jump-and-Run-Spiel 
Dynamite Dan verführt Sie 
in die Welt des bösen Dok¬ 
tor Blitzen, der einen Plan 
zur Eroberung der Erde ent¬ 
worfen hat. Sie als der Held 
Dynamite Dan müssen die¬ 
sen Plan stehlen. Da das 
Spiel über 30 verschiedene 
Screens hat, kann die Suche 
unter Umständen sehr viel 
Zeit beanspruchen. Dadurch 


wird die Sache nicht so 
schnell langweilig. 

Into The Eagles Nest 

Im Äction-Adventure Into 
The Eagles Nest müssen Sie 
Gefangene aus dem Lager 
des Feindes befreien. Aber 
Vorsicht, denn der Gegner 
schläft nicht und hat seine 
gesamte Armee mobilisiert, 
um Ihren Helden zu vernich¬ 
ten. Es darf geballert wer¬ 
den. Grafik und Sound sind 
nicht gerade überragend, 
aber dennoch ausreichend. 

Zynaps 

Ein weiteres Ballerspiel ist 
Zynaps. Hier dürfen Sie sich 
so richtig austoben. Mit den 
modernsten Waffen ausge¬ 
rüstet, müssen Sie das Lager 


gleich auch ein C64-Emula- 
tor mitgeliefert worden - 
der Einfachheit halber. So 
ähnlich sind die beiden Ver¬ 
sionen. 

Das Game macht den Ein¬ 
druck, als sei es in purem 
BASIC geschrieben, so pri¬ 
mitiv und langweilig ist es. 
Es läßt sich am ehesten mit 
einem etwas komplizierten 
„Schiffeversenken im Welt¬ 
raum" beschreiben. Der 
Bildschirm ist nur in ein 
Textfenster, ein Rasterfeld 
und ein Statuswindow 
unterteilt. Das Feld ist sehr 
klein geraten und die Sym¬ 
bole darauf sind derart win¬ 
zig, daß sie schon gar nicht 
mehr ins Auge fallen. Die 


Schrift ist in normalem Zei¬ 
chensatz geschrieben und 
wird einer Art und Weise ge¬ 
druckt, wie wir sie aus den 
BASIC-Zeiten des Commo¬ 
dore kennen. Der Spielwitz 
hält sich das ganze Spiel 
über auf einem Niveau um 
Null. Das Game nützt den 
Rechner nie und nimmer 
aus und ist auf dem Amiga 
und dem Commodore gleich 
schlecht. Bleibt zu hoffen, 
daß die beiden Strategie¬ 
spiele ein einmaliger Ausrut¬ 
scher bei der sonst so guten 
Produktreihe von Electro¬ 
nic Arts bleiben. Ein schlech¬ 
ter Monat für das Edel-Soft- 
warehaus. • mn 


der feindlichen Aliens zer¬ 
stören. Gute Grafiken und 
eine flotte Hintergrundmu¬ 
sik lassen so schnell keine 
Langeweile aufkommen. 

The Pumpkin Strikes 
Back 

Die böse Hexe hat all Ihre 
Kürbiskumpane vernichtet. 
Sie, der letzte überlebende 
Kürbis, haben Rache ge¬ 
schworen. Dringen Sie ins 
verwünschte Schloß der He¬ 
xe ein, finden Sie die Übel¬ 
täterin und schneiden Sie 
ihr eine Haarsträhne ab, aus 
der anschließend ein Zau¬ 
bertrank gebraut werden 
muß. Die Grafik von Caul- 
dron II ist sehr liebevoll ge¬ 


staltet und auch der Sound 
läßt kaum Wünsche offen. 
Meiner Meinung nach ist 
Cauldron 11 das gelungenste 
Spiel auf der Diskette. 

Aliens 

Die Aliens kommen. Bei die¬ 
sem Spiel handelt es sich um 
das offizielle Computerspiel 
zum Kinofilm Aliens, der 
bei uns vor einigen Jahren 
die Kassen füllte. Sie als Offi- 
cer Ripley müssen die Au¬ 
ßerirdischen aufhalten — 
nicht gerade ein Zuckerlek- 
ken. Spaß macht Aliens auf 
jeden Fall, auch wenn die 
Grafik bei der C64-Version 
nicht sonderlich gut gelun¬ 
gen ist. TB 
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* Knüllerpreise * Ein Preisvergleich lohnt sich immer ★ Knüllerpreise * 

Spiele Amiga/ST 

Spiele Amlga/ST 

Spiele Amiga/ST 

Arctlc Fox 54,50/54.50 
Arkanoid 64,50/42,50 
Backlash 45,50 44,50 
Bad Cat 49,50/54,50 
BMX Simulator 42.5044.50 
Calilornia Games 64,50/64,50 
Chessmaster 2000 72,50/74,50 
Clever & Smart 54,50/56,50 
Delender ol Crown 66,50 64,50 
Dungeon Master 64,50 64,50 
Eagles Nest 54,5056,50 
Emerald Mine 26,50/26.50 
Farn. Feuerstein 54,50/54,50 
Fllght-Simulator2 99,50 98,50 
Frlghtnlgth 64,50 64.50 
Ferrari Formulal 72,50/—,— 
GianaSisters 52,5054,50 
Grldstart 26,50 26,50 
Hotball 64,50 64,50 
Iridon 42,50/—,— 

Jump Jet 42.50/42,50 
Karting Grand Prix 26,50/26,50 
King of Chicago 58,50/58,50 
Las Vegas 26,50/26,50 
LeaderboarJGoll 64,50/64,50 
Lurkins Horror 74,50/74,50 
Moebius 64,50/64,50 
Phantasie 3 54,50/58,50 
Ports ol Call 88,50/—,— 
Planetfall —,—^74,50 
Rings of Zilfin 64,50/64,50 
Roadwar2000 54,50/54,50 
RoadwarEuropa 68,50/68,50 
Roadwars 54,50/54,50 
Rolling Thunder 64,50/54,50 
Sindbad 68,50/58,50 
Slaygon 54,50/54,50 
Soccer King 26,50/26.50 
Strip Poker2 Plus 42,50/44,50 
Sub BattleSim. 64,50/64,50 

Superstar Icehoc 64,50/64.50 
Terramex 54,50/54,50 
Test Drive 74,50/74,50 
Tetrls 54,50/54,50 
Time 4 Magic 54,50 54.50 
TwoATwoBasketb. 64,50 64.50 
WillytheKid 26,50 26.50 
Winterolympiade 88 56,50 56,50 
Wlzball 54,50 54,50 
Xenon 54,50 54.50 

Anwenderprogramme Amiga ST 
C-64 Emulator 156,50—,— 
Cambridge Llsp —,—358.50 
Lattice C 528.50 —,— 
Llsp 478.50 —,— 
MacroAssembler 178,50 —,— 
MCC Pascal —.— 248.50 
Pascal 248.50 — 

Pro Sprite Designer —,—/ 99,50 

S. Gebauer 

Parkstr. 7a 

5880 Lüdenscheid 

Tel. (0 23 51) 2 45 02 

◄◄ SSS ►► 
◄ ◄ SSS ►► 
◄◄ SSS ►► 
◄◄ SSS ►► 

Versandkosten: Vorkasse * DM 4,50 / Nachnahme + DM 
7,50. Zur Auslieferung gelangt ausschließlich nur Original¬ 
ware. Angebote freibleibend. Liefermöglichkeiten Vorbe¬ 
halten. Bei großer Nachfrage nicht Jeder Artikel sofort 
lieferbar. 
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Spiel® 


P Willkommen bei der 




>, Spielefreaks und Joystickartisten! 
den Players Pages des LOAD & RUN- 
Spielemagazins. Wer Tips, Tricks, Lösungen oder Karten 
zu jedem x-beliebigen Spiel für jedes x-beliebige System hat 
oder sucht, der ist hier genau richtig. 


Z 


uerst mal ein dickes Lob an die 
MSX-User, die sich diesmal für 
die Players' Pages besonders ins 


Alles für den CPC 

Markus Sledzinski hat sich für die 


BLAGGER 

POKE 

POKE 

DRUID 

POKE 

POKE 

MIKIE 

POKE 

BOMBSCARE 

ARMY 

POKE 

&FF 

MOVES (1) 
ARMY 

POKE 

MOVES (2) 

POKE 

CLASSIC AXIENSPOKE 


Wer weiß mehr? 


&7CC2.&00 

&7CC4,&00 

11265,00 

8449.195 

25116.195 
&A1F0, 


&0B3E,&00 

&0865,&00 

&478C,&7F 


Zeug gelegt haben. 

MSX-Spielepokes 


CPC-User in der Spielewelt umgese¬ 
hen — mit Erfolg, wie Sie an der nach- Auch diesmal sind wieder viele Fragen 
folgenden Poke-Liste sehen können. zu beantworten. Wer kann weiterhel- 


Von unserem Leser Dag Frommhold 
aus Neuffen stammen die folgenden 
kleinen Poke-Programme für den MSX- 
Computer. Einfach abtippen, starten 
und staunen. 

5 'Hunchback the Adventure 
10 BLOAD"CAS:'' 

20 PO KE -28370,0 
30 DEFUSR=&H9000:A=USR(0) 

10 ' Turmoil 
20 LOAD "CAS:'' 

30 POKE &HEC1 ,&H0 
40 DEFUSR=&HE646: A=USR(0) 

10 ' Mutant Monty 
20CLEAR 100,&H87FF 
30 BLOAD "CAS:" 

40 POKE -27872,0 
50 DEFUSR=&H9000:A=USR(0) 

Dag hat auch beim Spiel Valkyr einen 
Cheat-Mode entdeckt, in den Sie durch 
gleichzeitiges Drücken von TAB, 
CTRL, SHIFT, ESC, CAPS, CURSOR 
UP, DOWN und LEFT, allerdings erst 
im Hauptmenü, gelangen. Als kleine 
Zugabe noch die Keywörter für The 
Goonies: GOONIES, MR SLOTH, 
GOON DOCKS. 


Masters Of The Universe 

Unser Leser Hanno Schehly hat uns für 
alle Masters of the Universe einen 
Stadtplan zugeschickt, auf dem die 
magischen Chords markiert sind. Jetzt 
dürfte es wirklich kein Problem mehr 
sein, das Spiel zu beenden. 


SIGMA SEVEN 

COPOUT 

NEMESIS 

PROJECT 

FUTURE 

ANDROID ONE 

SPINDIZZY 

SHOCKWAY 

RIDER 

KILLAPEDE 

IMP. MISSION 

WIZBALL 


POKE 34432, 
anzahl 

POKE &13A,&FF 
POKE &33C.&00 

POKE &9B9C,&08 
POKE &7391.&00 
POKE &A85E.&C9 

POKE &7D8E.&00 
POKE &4A14,&00 
POKE &12BF.&C9 
POKE &7CC2,&00 


fen? Eine ganze Menge Probleme hat 
Hanno Schehly. Bei Jack The Nipper 
findet er die Diskette nicht. Wie kann 
man den Leim verwenden? Beim Spiel 
Nightmare findet Hanno die Exit- 
Steine n'fcht und für Molecule Man be¬ 
nötigt er einen Plan. Auch für das Spiel 
Die Erbschaft wird dringend Hilfe be¬ 
nötigt. Wer nimmt im ersten Teil wel¬ 
chen Gegenstand und was muß man im 
Flughafen (Teil 2) machen? Wer Han¬ 
no helfen kann, möge uns bitte schrei¬ 
ben. Euer 

Thomas Bosch 


Von ihrem Aus¬ 
gangspunkt be¬ 
trachtet, müssen 
Sie versuchen 
möglichst ohne 
Umwege, ihr Ziel 
zu erreichen. Hier 
ist der Lageplan 
des Labyrintes aus 
dem Spiel Heman 



Oer clevere Konfekt: 


Immer die neueste 
Software zu absolut 
coolen Preisen! 
Testen Sie uns noch 
heute, wir sind 
jederzeit für Sie da! 





Andreas Bachler 
Postfach 429 
D-4290 Bocholt 

Tel. (0 28 71) 
18 30 88 
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PROGRANIMSERVICE 

Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingungen die Listings dieses Heftes auf 

□ Kassetten zu 40,- □ Disketten zu 40,- (16er) 

Ich zahle: 

Zutreffendes bitte ankreuzen! - 0 

per beigefügtem Scheck ( ) Schein ( ) 

Gegen ßankabbuchung am Versandtag ( ) 

Meine Bank (mit Ortsname)_ j _16/IIS 

Meine Kontonummer_ 

Meine Bankleitzahl_(steht auf jedem Bankauszug)_ 

Vorname_Nachname___ 

Str./Nr_Plz/Ort_ 

Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung. Keine Nachnahme. Umtausch bei 
Nichtfunktionieren. 16/111 

Unterschrift_,_ 

Bitte ausschneiden und einsenden an 

COMMODORE WELT 
KASSETTENSERVICE 16/111 
POSTFACH 1161 
D-8044 UNTERSCHLEISSHEIM 

- 


LESER WERBEN LESER 


GEWINNEN SIE EINE COM¬ 
PUTER-UHR! Und zusätzlich 
eventuell noch ein großes Com- 
modore-Buch. Oder ein Paket 
Disketten. ODER AUCH EINEN 
COMMODORE-DRUCKER - 
ODER EINE DISKETTENSTA¬ 
TION! Wie? Sie werben einen 
Abonnenten. Dann haben Sie auf 
jeden Fall schon die Computer- 
Uhr gewonnen. Zusätzlich ver¬ 
losen wir unter allen, die mit¬ 
machen, jeden Monat vier weitere 
wertvolle Preise. Und alle sechs 
Monate gibt es einen Hauptpreis 
unter allen Abo-Werbern zu 
gewinnen. Also: Mitmachen. Mit¬ 
gewinnen. 


Ja, ich mache mit beim Abo- 
Wettbewerb. Ich habe 



Herrn/Frau 


Straße/Hausnr. 


Plz/Ort 


als neuen Abonnenten der CI6/ 
P4 geworben. 


Der neue Abonnent war bisher 
noch nicht Bezieher dieser Zeit¬ 
schrift. 

Als Prämie erhalte ich nach Ein¬ 
gang des Abo-Entgeltes auf jeden 
Fall eine Computer-Uhr, wie ab¬ 
gebildet, und nehme zusätzlich 
noch an der Verlosung des Monats 
sowie der halbjährlichen Haupt¬ 
preise teil. Mir ist bekannt, daß 
der Rechtsweg bei den Verlosun¬ 
gen ausgeschlossen ist. 

Meinen Preis senden Sie an 


Name_1_ 

Straße/Hsnr._ 

Plz/Ort_ 

(Bitte ausschneiden und zusam¬ 
men mit der Abo-Bestellkarte 
links einsenden 0 16/111 


81 









VERDIENEN SIE GELD 
MIT IHREM COMPUTER! 


Haben Sie einen Commodore VC 20 oder C 64? 
Einen 16/116, Plus 4? Oder einen 128? Können Sie 
programmieren? In Basic oder Maschinensprache? 
Dann bietet COMMODORE-WELT Ihnen die Mög¬ 
lichkeit, mit diesem Hobby Geld zu verdienen! 

Wie? Ganz einfach. Sie senden uns die Programme, 
die Sie für einen Abdruck als geeignet halten, zusam¬ 
men mit einer Kurzbeschreibung, aus der auch die 
verwendete Hardware - eventuelle Erweiterungen - 
benutzte Peripherie - hervorgehen muß (Schauen Sie 
sich dazu den Kopf unserer Programmlistings an.) 

Benötigt werden: Zwei Listings des Programms 
sowie eine Datenkassette oder Diskette! Wenn die 
Redaktion sich überzeugt hat, daß dieses Programm 
läuft und sich zum Abdruck eignet, zahlen wir Ihnen 
pro Programm je nach Umfang bis zu DM 300,-! 


Sollten Sie keinen Drucker haben, genügt der Daten¬ 
träger. 

Sie erhalten Ihre Kassette/Diskette selbstverständ¬ 
lich zurück, wenn Sie einen ausreichend frankierten 
Rückumschlag mit Ihrer Adresse beifügen. 

Bei der Einsendung müssen Sie mit Ihrer Unterschrift 
garantieren, daß Sie der alleinige Inhaber der Urheber- 
Rechte sind! Benutzen Sie bitte anhängendes Formu¬ 
lar! (Wir weisen darauf hin, daß auch die Redaktion 
amerikanische und englische Fachzeitschriften liest 
und „umgestaltete” Programme ziemlich schnell er¬ 
kennt). 

Um Ihnen die Arbeit zu erleichtern, finden Sie hier 
ein Formular. Sie können es ausschneiden oder foto¬ 
kopieren. 


Name des Einsenders: _ 

Straße/Hausnr./Tel.: _ 

Plz/Ort: _ 

Hiermit biete ich Ihnen zum Abdruck folgende(s) Programm(e) an: 


Benötigte Geräte: 


Beigefügt ( ) Listings ( ) Kassette ( ) Diskette 
Ich versichere, der alleinige Urheber des Programmes zu sein! 

Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken und wirtschaftlich zu verwerten. Sollte es 
in den Kassetten-Service aufgenommen werden, erhalte ich auch dafür eine entsprechende Vergütung, das Copy¬ 
right geht insoweit auf den Verlag über. 


Rechtsverbindliche Unterschrift 


COMMODORE WELT 
PROGRAMM-REDAKTION 
POSTFACH 1161 
D-8044 UNTERSCHLEISSHEIM 
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GRUNDLAGEN! 


Fortsetzung von Seite 62 

Das Zero-Flag 

Wissen Sie, warum viele Program¬ 
mierer das Ende eines Datensatzes 
mit einer Null kennzeichnen? 

Laden Sie den Akku oder irgend ein 
anderes Register mit einer von Null 
verschiedenen Zahl, dann mit der 
Zahl null. Beim Beobachten des 
Statusregisters bemerken wir eine 
Veränderung von Bit eins, des zwei¬ 
ten Bit von rechts. Ist der geladene 
Wert Null, so zeigt das Zero-Flag 
eine Eins, im anderen Falle eine 
Null. Mit den Branchbefehlen BEQ 
und BNE kann daraufhin entspre¬ 
chend verzweigt werden. Branch 
Equal ist gleichbedeutend mit 
Branch Zero und heißt soviel wie: 
„Verzweige, wenn Zero-Flag 
gleich eins“. 

Branch Not Equal verzweigt im um¬ 
gekehrten Falle. 

Das Vorzeichenflag _ 

Datensätze in Standard-ASCII, wo¬ 
bei nur Werte bis #$7F Vorkommen, 
lassen sich sogar noch kürzer abspei¬ 
chern. Ein extra Byte für die Ende¬ 
markierung kann entfallen. Es 
braucht nur Bit sieben des letzten 
Zeichens auf Eins gesetzt werden. 

Das Vorzeichenflag zeigt dieses an. 

LDA #$01 
LDA #$81 

Bit sieben, das ganz links wiedergege¬ 
ben wird, ist das Vorzeichenflag. Es 
heißt so, da beim Rechnen mit ne¬ 
gativen Zahlen definiert wird, daß 
Zahlen von #$00 bis #$7F positiv 
seien und Zahlen von #$80 bis 
#$FF negativ. Bit sieben des Status¬ 
registers gibt also Bit sieben eines ge¬ 
ladenen oder auf Grund einer sonsti¬ 
gen Operation erhaltenen Wert eines 
Registers oder Speicherinhaltes wie¬ 
der. 

Bit sieben läßt sich ganz einfach mit 
dem Vorzeichenflag abfragen. Der 
Prozessor sollte aber auch die rest¬ 
lichen Bit aus einem Register oder 
aus einer Speicherzelle abfragen 
können. Einen Befehl, mit dem wir 
dieses leicht bewerkstelligen kön¬ 
nen, kennen wir bereits. 

LDA #$01 
AND $0001 
LDA #$02 
AND $0001 
LDA #$04 
AND $0001 

LDA #$08 AND $0001 

AND $0001 LDA #$40 

LDA #$10 AND $0001 

AND $0001 LDA #$80 

LDA #$20 AND $0001 


Wir setzen im Akku alle Bit auf 
Null, mit Ausnahme desjenigen, das 
wir abfragen wollen. Durch den 
AND-Befehl werden alle Bit, die 
uns nicht interessieren, zu Null. An 
der Stelle, die wir mit einer Eins 
maskiert hatten, gelangt das ge¬ 
wünschte Bit aus der Speicherstelle 
in den Akku. Wenn dieses Null war, 
so ist der gesamte Akku Null und 
das Zero-Flag ist gesetzt. Im ande¬ 
ren Falle wissen wir, daß uns eine 
Eins vorliegt. 

Der AAD-Befehl ändert auch den 
Akku-Inhalt. Manchmal wäre es 
wünschenswert, wenn dieser uns er¬ 
halten bliebe. Außerdem kann mit 
dem AND-Befehl nur ein einziges 
Bit über das Zero-Flag abgefragt 
werden. Ein paar Möglichkeiten 
mehr bietet der Bit-Befehl. Um Bit 
sieben abzufragen, braucht nicht ex¬ 
tra der Wert eines Registers durch 
Hereinladen zerstört werden. Zu¬ 
sätzlich zu Bit sieben im Vorzeichen¬ 
flag wird Bit sechs im Überlauf-Flag 
erfaßt. Die restlichen Bit können 
auf dieselbe Art, wie wir es bereits 
vom AND-Befehl her kennen, abge¬ 
fragt werden. 

Die Besonderheit des R/T-Befehls 
ist, daß zwar auch eine Undierung 
stattfindet, jedoch das Ergebnis nur 
im Setzen des Zero-Flags sichtbar 
wird, und so der Akkuinhalt unver¬ 
ändert bleibt. 

LDA #$01 
BIT $0001 
LDA #$02 
BIT $0001 
LDA #$04 
BIT $0001 
LDA #$08 
BIT $0001 
LDA #$10 
BIT $0001 
LDA #$20 
BIT $0001 

Wir haben die Abfragen jetzt nur 
bis Bit fünf ausgeführt, da das Sta¬ 
tusregister uns sowieso immer die 
Werte von Bit sechs und sieben 
wiedergab. Da das Überlauf-Flag 
auf Eins steht, gibt uns dieses die 
Gelegenheit, den Befehl CL V auszu¬ 
probieren. Es funktioniert wie ge¬ 
wünscht. 

Wir können den Wert #$00 abfra¬ 
gen, wir können abfragen, ob ein 
Wert größer als #$7F ist, sogar vor 
einzelnen Bit brauchen wir nicht 
zu kapitulieren. Dennoch fehlt 
noch irgend etwas. Was tun wir 
denn, wenn Datensätze nicht mit 
einer Null abgeschlossen sind und 
auch nicht mit einem Wert größer 
als #$7F, sondern schlicht mit ei¬ 
nem Carriage-Return oder einem 
sonstigen Wert? 


Wir müßten demnach vergleichen 
können, ob wir einen bestimmten 
Wert vor uns haben, oder nicht. Da¬ 
für gibt es den Compare- Befehl, der 
zwei Werte miteinander vergleicht. 
Vergleichen können wir die Regi¬ 
sterinhalte unmittelbar mit einem 
bestimmten Wert, oder aber mit 
dem Inhalt einer beliebigen Spei¬ 
cherzelle. Die Compare-Befehle 
sind: 

CMP 

CPX 

CPY 

CMP vergleicht mit dem Akkuinhalt, 
die beiden anderen Befehle sind 
wohl nicht schwer zu erraten. 

LDA #$04 
CMP #$03 

Das Zero-Flag zeigt eine Null. 

LDA #$04 
CMP #$04 

Das Zero-Flag zeigt eine Eins zum 
Zeichen, daß die beiden vergliche¬ 
nen Werte übereinstimmen. Einen 
Vergleich können wir uns so vorstel¬ 
len, daß vom Wert im Register der 
verglichene Wert subtrahiert wird, 
ohne daß der Wert im Register ver¬ 
ändert wird. Wie beim Bit-Befehl er¬ 
scheint das Resultat nur im Status¬ 
register. 

Die Namensgebung der Befehle BEQ 
und BNE ist auf diesen Vergleich zu¬ 
rückzuführen. Stimmen die beiden 
Werte überein, so ist die Differnz 
der Werte Null, das Zero-Flag somit 
gesetzt und BEQ verzweigt entspre¬ 
chend. Branch Equal heißt somit: 
„Verzweige, wenn Gleichheit be¬ 
steht.“ 

Von BASIC her kennen wir: 

IF A=B 
IFAOB 
IF A<B 
IF A>B 

Die ersten beiden Fälle sind in Ma¬ 
schinensprache bereits abgehandelt. 
Die letzten beiden fehlen uns noch. 
Wir beobachten bei den folgenden 
Vergleichen einmal das Carry-Flag, 
ob hier ein Unterschied wahrnehm¬ 
bar ist. 

LDA #$04 
CMP #$03 
CMP #$05 
CMP #$04 

Ist der Registerinhalt größer oder 
gleich dem zu vergleichenden Wert, 
so wird das Carry gesetzt, im ande¬ 
ren Falle gelöscht. 
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Mit den Branch-Befehlen BCS, 
Branch Carry SET, und BCC, 

Branch Carry Clear, können wir 
nach Wunsch verzweigen. Beim 
CMP -Befehl wird auch noch das Vor¬ 
zeichenflag beeinflußt. Eine große 
Bedeutung kommt diesem Umstand 
wohl nicht zu. Wir können aber 
leicht noch einmal nachprüfen, ob 
Bit sieben in einem Register gesetzt 
ist, wenn zwischendurch auch 
schon andere Ladeoperationen er¬ 
folgt sein sollten. 

LDA #$90 
LDX #$01 
CMP #$00 

Wir besitzen jetzt ein fundiertes 
Wissen über die Programmlogik un¬ 
seres Rechners. Ob wir unser Gerät 
Rechner nennen dürfen, werden 
uns die Rechenbefehle zeigen. 


VI. DIE RECHENOPERATIONEN 
DER CPU 


Addition, Subtraktion, Rotations-, 
und Schiebe-, Ikrementier- und 
Dekrementierbefehle sind Operatio¬ 
nen, mit denen der Prozessor auf¬ 
wartet. Multiplikationen und höhe¬ 
re Rechenoperationen lassen sich 
mit diesen Befehlen realisieren. 

Ihr Taschenrechner wartet mit 
Grundrechenarten, Wurzeln, Poten¬ 
zen und vielen mathematischen 
Funktionen auf. BASIC besitzt 
ebenso eine Menge von Rechenope¬ 
rationen. Der Rechner muß also ei¬ 
ne Menge können. Mancher wird 
wohl sehr verblüfft sein, wie wenig 
die CPU tatsächlich nur kann. Sie 
wartet nicht mit vielstelligen Dezi¬ 
malzahlen und Exponenten, son¬ 
dern nur mit Byte-weiser Addition 
und Subtraktion auf. 

Multiplikation und Division sind für 
sie bereits Fremdwörter. Solche 
Wörter wie Sinus oder Cosinus ge¬ 
trauen wir uns gar nicht mehr in 
den Mund zu nehmen. Wenn auch 
der arithmetische Befehlssatz nicht 
sehr umfangreich ist, so läßt sich 
doch mit diesem alles programmie¬ 
ren, was das Herz begehrt. 

Addition und Subtraktion _ 

Wir haben die Wahl zwischen binä¬ 
rem oder BCD-System. Vor dem 
Addieren ist das Carry-Flag auf Null 
zu setzen, vor das Subtrahieren auf 
Eins. 

LDA #$04 
ADC #$03 


Wie gewünscht, ist das Ergebnis im 
Akku sichtbar. Wir nehmen nun 
Zahlen, die geringfügig größer sind. 

CLC 

LDA #$08 
ADC #$07 

Die dezimale Darstellung zeigt den 
Wert 15, wie es sein soll. Die hexade¬ 
zimale Darstellung wartet mit #$0F 
auf, was zwar noch vorstellbar ist, 
jedoch für uns Zehn-Finger-Men- 
schen schon etwas unanschaulich 
wirkt. Doch es kommt noch schlim¬ 
mer. 

LDA #$28 
ADC #$49 

Weder die deziamel Darstellung 
noch die Hex-Darstellung zeigen an, 
daß 28 und 49 die Summe 77 erge¬ 
ben müßten. Wir und die CPU be¬ 
nützen eben zwei unterschiedliche 
Zahlensysteme. Wenn wir die Zah¬ 
len *$28 und #$49 in die Index-Re¬ 
gister laden, sehen wir, daß #$28 
eben nicht auch dezimal 28 bedeu¬ 
tet. Die Summe der Werte in den 
Indexregistern ergibt jedoch genau 
den Wert, den wir im Akku vorfin¬ 
den. Wir brauchen nur die dezimal 
dargestellten Werte miteinander 
vergleichen. Keine Sorge, wir brau¬ 
chen uns deshalb nicht umgewöh¬ 
nen, von nun an in Hex-Zahlen zu 
rechnen. 


HEX, DEZIMAL 
UND BCD 


Die Schwierigkeit ist nur, daß der 
Rechner und wir andere Zahlensy¬ 
steme verwenden. Der Programm¬ 
anwender merkt davon nichts. 

Der Programmierer hat dafür Sorge 
zu tragen, daß die dezimal eingege¬ 
benen Zahlen in Hex-Zahlen umge¬ 
wandelt werden. Die CPU kann nun 
auf ihre Weise mit diesen Zahlen 
rechnen. Das Ergebnis muß wieder 
in das Dezimalsystem zurücküber¬ 
setzt werden. Wenn der Rechner 
allerdings nicht einmal multiplizie¬ 
ren kann, so ist dieses wohl gerade 
kein leichtes Unterfangen. Glück¬ 
licherweise kommt uns das Status¬ 
register mit dem Dezimalflag einen 
Schritt entgegen, so daß wir die 
Rechenleistungen gut verfolgen 
können. 

SED 

CLC 

LDA #$08 
ADC #$07 
LDA #$28 
ADC #$49 


Bei der Subtraktion setzen wir das 
Carry-Flag. 

SEC 

LDA #$77 
SBC #$49 

Das Ergebnis entspricht auch unse¬ 
ren Erwartungen. Wenn der Rech¬ 
ner nur mehr Stellen zulassen würde! 
Mit dem Carry-Flag hat es noch ei¬ 
ne besondere Bewandtnis. 

CT C 

LDA #$60 
ADC #$50 

Wir beobachten, daß das Carry-Flag 
nun gesetzt ist. Da die Summe aus 
50 und 60 größer als 99 ist, ist ein 
Übertrag entstanden, der bei weite¬ 
ren Additionen dazuaddiert wird. 

TAX 

LDA #$01 
ADC #$02 

Eins und zwei sind plötzlich vier, da 
der Übertrag aus der vorangegange¬ 
nen Rechnung Berücksichtigung 
fand. 

Betrachten wir die beiden Rechnun¬ 
gen im Zusammenhang, so haben 
wir eigentlich die Summe aus 160 
und 250 gebildet. Akku und X-Regi- 
ster enthalten 0410. Wenn wir mehr¬ 
mals hintereinander die einzelnen 
Stellen einer vielstelligen Zahl unter 
Berücksichtigung der Überträge ad¬ 
dieren, so sind uns von der Stellen¬ 
zahl her keine Grenzen gesetzt. Wir 
brauchen nur einen bestimmten Spei¬ 
cherbereich unserer Rechnenopera¬ 
tion vorsehen. Die jeweilige Summe 
aus den beiden Summanden schrei¬ 
ben wir wieder in den Speicher. 

BRK 

M3000 

F3000,3FFF,0 

M3000 

Nach der Adreßangabe >3000 fin¬ 
den wir die Hexzahlen 00 00 00. 
Diese ändern wir in eine beliebige 
sechsstellige BCD-Zahl. Mit der Zeile 
weiter unten wollen wir genauso 
verfahren. 


G 


CLC 


LDA S3002 


ADC $300A 


STA $3012 


LDA $3001 


ADC $3009 


STA $3011 

STA $3010 

LDA $3000 

BRK 

ADC $3008 

M3000 
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:r können nun das Ergebnis be¬ 
dachten. Wenn nicht vorne bei den 
:underttausendern noch ein Über- 
auf geschehen ist, sollte unser Er- 
r ebnis stimmen. 

7 ir mehrstellige Subtraktionen dient 
ebenso wieder das Carry-Flag. 
j- ormalerweise müßte es in diesem 
.-alle Borrow-Flag heißen. Für unse¬ 
re CPU gilt, daß ein gesetztes Carry 
ein gelöschtes Borrow bedeutet und 
amgekehrt. Andere CPUs können 
auch eine andere Regelung besitzen. 
A ir versuchen uns nun an der mehr¬ 
stelligen Subtraktion. Zahlen brau¬ 
chen wir keine hierzu noch einge¬ 
ben. Wir löschen lediglich eine Zeile 
im Monitor. 

F3000,3007,0 
M3000 

Der erste Summand aus unserer Ad¬ 
dition ist verschwunden. Von der 
früheren Summe ziehen wir den 
zweiten Summanden ab und sollten 
wieder die erste Zeile, wie gehabt, 
bekommen. 

LDAS3012 
SBC $300A 
STA $3002 
LDAS3011 
SBC $3009 
STA $3001 
LDA$3010 
SBC $3008 
STA $3000 
BRK 
M3000 
1 ; 

Für unsere Zwecke reicht das Rech¬ 
nen mit positiven Zahlen vollstän¬ 
dig. Die CPU kennt schließlich nur 
ositive Adressen von $0000 bis 
FFFF. Wenn einmal etwas errech¬ 
net werden muß, wie die Länge ei¬ 
nes Speicherbereiches aus der An¬ 
fangsadresse und der Endadresse, so 
ist maximal eine zweistellige Rech¬ 
nung vonnöten. Für diejenigen, die 
sich einmal vornehmen sollten, ei¬ 
ne Tabellenkalkulation oder ein 
Buchrechnungsprogramm in Ma¬ 
schinensprache zu programmieren, 
sind auch das Vorzeichenflag und 
das Überlauf-Flag von Bedeutung. 
Wir definieren uns nun, daß Zahlen 
von #$00 bis #$7F positiv sein sol¬ 
len und Zahlen von #$80 bis #$FF 
negativ, und schenken den Status- 
Bit sechs und sieben nun unsere 
Aufmerksamkeit. Zuerst verlassen 
wir aber erst einmal den Monitor 
und setzen das Dezimalflag zurück. 

G 

CLD 


Wir können jetzt mit dem Rechnen 
beginnen. 

LDA #$40 
ADC #$50 

Das Ergebnis #$90 ist als negative 
Zahl definiert, was das Vorzeichen- 
Flag auch angibt. Nur kann die Sum¬ 
me aus zwei positiven Zahlen wohl 
kaum negativ sein. Daher ist das 
Überlauf-Flag gesetzt. Es signalisiert, 
daß das Vorzeichen-Flag den Sach¬ 
verhalt nicht richtig wiedergibt. 

CLC 

LDA =$40 
ADC #$20 

Beide Flags sind null. Die Zahl ist 
positiv. Das Vorzeichen-Flag zeigt 
es richtig an. 

LDA #$40 
ADC #$FF 

Die Hexzahl #$FF entspricht einer 
negativen Eins. Das Ergebnis ist da¬ 
her positiv und richtig. 

SFC 

LDA #$10 
SBC #$20 

Das Ergebnis ist negativ, das Vorzei¬ 
chen-Flag zeigt dieses an. 

LDA #$90 
SBC #$20 

Von einer negativen Zahl wird eine 
positive abgezogen. Das Ergebnis 
muß daher negativ sein. Daß das 
Vorzeichen-Flag den Sachverhalt 
nicht richtig wiedergibt, wird vom 
Überlauf-Flag signalisiert. 

sft 

LDA #$05 
SBC #$90 


Von einer positiven Zahl wird eine 
negative subtrahiert. Das Ergebnis 
muß daher positiv sein. Das Vorzei- 
chen-Flag gibt es richtig wieder. 


SEC 

LDA #$30 
SBC #$90 

Das Ergebnis muß aus den vorher 
genannten Gründen wieder positiv 
sein. Das Überlauf-Flag widerspricht 
dem Vorzeichen-Flag. 


LDA #$90 
ADC #$90 

Zu einer negativen Zahl wird eine 
negative Zahl addiert. Das Ergeb¬ 
nis muß negativ sein. Das Überlauf- 
Flag sagt aus, daß das Vorzeichen- 
Flag nicht recht hat. 

Wir sprachen davon, daß die CPU 
nicht multiplizieren könne. Ganz 
richtig ist dieses jedoch nicht. Wir, 
die im Dezimalsystem rechnen, be¬ 
nötigen das Einmaleins bis zum Neu¬ 
nereinmaleins. Das Multiplizieren 
mit zehn geschieht durch einfaches 
Linksverschieben. Im Binärsystem, 
das nur die Zahlen null oder eins 
kennt, brauchen wir nur das Einer¬ 
einmaleins und das Verschieben, 
das einer Multiplikation mit zwei 
gleichkommt. Mit eins multiplizie¬ 
ren ist keine Kunst, da dieses sich 
von selbst erübrigt. Für das Ver¬ 
schieben stehen uns diverse Befehle 
zur Verfügung. 

LDA #$01 
ASL 

Der Akkumulatorinhalt wird durch 
den ASL-Befehl, Arithmetic Sliift 
Left, um eins nach links geschoben. 
Wiederholen Sie den ASL-Befehl, bis 
die Eins aus dem Akku verschwindet. 
Ist dieses der Fall, erscheint ein ge¬ 
setztes Bit im Carry-Flag. Nach ei¬ 
nem weiteren Befehl ist auch dieses 
verschwunden. Sie brauchen den 
ASL-Befehl nicht jedesmal neu ein¬ 
zugeben. Unser Programm hat eine 
Wiederholautomatik. Wenn Sie nur 
die Return-Taste drücken, wird der 
zuletzt eingegebene Befehl immer 
wieder ausgeführt. 

LDA #$01 
ROL 

Fas das gleiche wie der ASL-Befehl 
scheint der ROL-Befehl, ROtate 
Left, zu bewirken, daß dieses jedoch 
nicht so ist, sehen wir, wenn die Eins 
aus dem Akku verschwunden und im 
Carry-Flag gelandet ist. Beim näch¬ 
sten ROL-Befehl geht sie von dort 
wieder in den Akku über. 

LDA #$80 
LSR 

Logical Shift Right bewirkt dasselbe 
wie ASL, nur in umgekehrter Rich¬ 
tung. 

LDA #$02 
ROR 
ROR 
ROR 
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Rotate Right funktioniert genau wie 
ROL in umgekehrter Richtung. Die¬ 
se Befehle greifen nicht nur auf den 
Akku zu, sondern es lassen sich 
auch beliebige Speicherstellen da¬ 
durch verändern. Auf ASL und 
LSR könnte zur Not auch verzichtet 
werden, da durch Löschen des Car- 
ry-Flags dafür gesorgt werden kann, 
daß die Rotate-Befehle stets eine 
Null in den Akku oder die Speicher¬ 
stelle rotieren. 

Das Hereinnehmen des Carry-Flags 
durch die Rotate-Befehle ist äußerst 
nützlich. Denken wir hierzu nur ein¬ 
mal an eine Grafik-Hardcopy. Durch 
acht mal acht Bit wird das Bit-Mu¬ 
ster eines Zeichens bestimmt. Der 
Bildschirm hat es zu acht Reihen 
mit jeweils einem Byte, der Drucker 
jedoch braucht es in Spaltenform. 
Nachdem die Matrix aus dem Bild¬ 
schirmbereich herauskopiert wurde 
— schließlich wollen wir den Bild¬ 
schirminhalt nicht zerstören —, kön¬ 
nen wir mit ROL-Befehlen für den 
Drucker zurechtschneidern. Aus je¬ 
dem der acht Bildschirm-Byte ro¬ 
tieren wir je ein Bit heraus und ro¬ 
tieren es mit einem zweiten ROL- 
Befehl in den Akku. Nachdem der 
Akkuinhalt ausgegeben ist, holen 
wir uns nach demselben Verfahren 
die zweite Spalte heraus, bis alle 
acht Spalten ausgegeben sind. 

Zum Multiplizieren laden wir je¬ 
weils eine Zahl, deren Produkt nicht 
größer als 255 oder #$FF betragen 
soll, in die Indexregister. Das Pro¬ 
dukt soll nach der Multiplikation 
im Akku stehen, die Faktoren noch 
in den Indexregistern. 

LDX #$06 
LDY #$09 

Es gilt nun ein geeignetes Verfahren, 
die Multiplikation zu finden. Wir la¬ 
den hierzu den Akku mit Null und 
legen die beiden Werte in zwei Spei¬ 
cherstellen ab, so daß wir sowohl 
schieben als auch addieren können. 

LDA #$00 
STX $3000 
STY $3001 

Eine Zahl können wir dadurch mit 
sechs multiplizieren, daß wir sie in 
den Akku laden. Dadurch haben wir 
sie einmal erfaßt. Indem wir sie nach 
links verschieben, haben wir sie be¬ 
reits mit zwei multipliziert. Wenn 
wir sie noch einmal dazuaddieren, ist 
sie schon mit drei malgenommen. 

Ein abschließendes Linksverschieben 
bringt das gewünschte Ergebnis. 

Für beliebige Zahlen, die bis zu acht 
Bit lang sein dürfen, benötigen wir 
noch ein paar weitere Befehle. Acht 


Bit sind zu untersuchen. Daher muß 
unser Rechner bis acht zählen kön¬ 
nen. Zum Zählen dienen Befehle, 
mit denen vorwärts und rückwärts 
gezählt werden kann. 

LDY #$08 
DEY 

Bei jedem DEY wird das Y-Register 
um Eins erniedrigt, bis beim Errei¬ 
chen von Null das Zero-Flag diesen 
Zustand anzeigt. Beim weiteren De- 
crementieren spricht das Vorzeichen- 
Fläg an. 

INY 

Mit INY kann das Y-Register hoch¬ 
gezählt werden. Die restlichen Befeh¬ 
le sollen nun nicht gleich ausprobiert 
werden, da wir den Inhalt des X-Re- 
gisters weder decrementieren noch 
incrementieren wollen, da wir diesen, 
bevor wir nicht multipliziert haben, 
gerne unverändert hätten. 

Neben den Indexregistern können 
auch Speicherstellen angesprochen 
werden. Es folgt eine Auflistung der 
Increment- und Decrement-Befehle 

INX 

DEX 

INY 

DEY 

INC 

DEC 

Wir laden also das Y-Register mit 
dem Wert #$08 und unser Algorith¬ 
mus kann beginnen. Da hierbei auch 
Verzweigungen stattfinden, sei er in 
einzelnen Schritten verfaßt. 

1. ASL 

2. ASL $3000 

3. Wenn Carry = 0, dann Sprung 
nach 6. 

4. CLC 

5. ADC $3001 

6. DEY 

7. Wenn Zero = 0, dann Sprung 
nach 1. 

8. LDY $3001 

Etwas mühsam ist es, solch einen Al¬ 
gorithmus mit der Hand durchzupro¬ 
bieren. Zum Programmieren fehlt 
uns fast nichts mehr, denn unser Be¬ 
fehlssatz ist bereits nahezu vollstän¬ 
dig. Uns fehlt nur noch der Befehl, 
um ein Unterprogramm anzusprin¬ 
gen, und der Befehl für den Rück¬ 
sprung. Der Befehl für den Rück¬ 
sprung heißt R TS. Wir können ihn 
in unserem CPU-Programm nicht 
aufrufen. Genauso, wie die Branch- 
Befehle verwenden wir ihn erst in 
einem richtigen Programm. 

Der JSR -Befehl, der ein Unterpro¬ 


gramm anspringt, ist auch schon in 
unserem CPU-Programm verfügbar. 
Wir dürfen ihn allerdings erst ver¬ 
wenden, wenn wir ein anzuspringen¬ 
des Maschinenprogramm vor uns ha¬ 
ben. Besonders beachtet werden 
muß bei diesen Befehlen, daß der 
JSR, Jump SubRoutine, die Rück¬ 
sprungadresse auf dem Stapel ab legt. 
Nur so kann RTS, ReTurn from 
Subroutine, wieder an die richtige 
Stelle im Hauptprogramm zurück¬ 
kehren. Dies bedeutet, daß ein auf 
den Stapel gepushter Wert nicht 
nach einem Sprung in eine Unter¬ 
routine so ohne weiteres abgehoben 
werden kann. Anstatt dem gerette¬ 
ten Akkuinhalt würde ein Pull-Be- 
fehl ein Byte der Rücksprungadres¬ 
se abheben. 

Der RTS hätte als Rücksprung¬ 
adresse eine Kombination von be- 
retteten Akkuinhalt als High-Byte 
und High-Byte-Rücksprungadresse 
als Low-Byte vor sich und würde 
ganz schön ins Nirwana stürzen. Au¬ 
ßer den zwei soeben genannten Be¬ 
fehlen gibt es noch einen unbeding¬ 
ten Sprung namens JMP, nur für 
Sprünge in einem Bereich von $7F 
Adressen vorwärts und $80 Adres¬ 
sen rückwärts eingesetzt werden 
kann, sondern den Programmzähler 
auf jede beliebige Speicheradresse 
einstellen kann. Stapelbeeinflussun¬ 
gen finden hierbei nicht statt. 

Um vollständig zu sein, wollen wir 
auch einen ganz unscheinbaren Be¬ 
fehl nicht unerwähnt lassen. Sie 
können ihn ruhig gleich ausprobie¬ 
ren. Er heißt NOP, was No Opera¬ 
tion bedeutet. Dieser Befehl be¬ 
wirkt nichts. Er wird gerne als 
Platzhalter verwendet, so wie wir es 
auch im Maschinenteil unseres 
CPU-Programmes taten. An eine be¬ 
stimmte Stelle des Programms set¬ 
zen wir je nach auszuführendem Be¬ 
fehl entweder ein zwei oder drei 
Byte lange Befehle ein. Damit die 
CPU bei ein oder zwei Byte langen 
Befehlen nicht über den zurückge¬ 
bliebenen Rest der drei Byte langen 
Befehle stolpert, füllten wir die ver¬ 
bleibende ein oder zwei Adressen 
mit NOP-Codes auf. Wir schreiben 
jetzt unser erstes Maschinenpro¬ 
gramm. Da wir den Algorithmus für 
die Multiplikation bereits notiert 
hatten, fällt es uns bestimmt nicht 
schwer, diesen mit Hilfe des Moni¬ 
tors einzugeben. 


BRK 

A3002 LDA #$00 
STX $3000 
STY $3001 
LDY #$08 
ASL 

ASL $3000 


BCC $3010 
CLC 

ADC $3001 
DEY 

BNE $300C 
LDY $3001 
RTS 
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Der Sprungbefehl bei Adresse $3010 
stimmt noch nicht ganz. Wir haben, 
da wir die Sprungadresse beim Nie¬ 
derschreiben noch nicht gekannt 
haben, einen provisorischen Wert 
eingesetzt. Da jetzt die Adresse des 
DEY-Befehles bekannt ist, ersetzen 
wir BCC $3010 durch BCC $3016. 
Den Monitorbefehl zum Betrachten 
eines Speicherbereichs im Hexfor¬ 
mat kennen wir bereits. Zum Be¬ 
trachten eines Maschinenprogramms 
wäre es sehr schön, wenn dieses sich 
auch in Assembler-Mnemonics an¬ 
schauen ließe. Auch dafür gibt es 
einen Monitorbefehl. Er heißt 
Disassemble und wird mit dem 
Buchstaben D, gefolgt von einer 
Adresse eingegeben. Sie dürfen ru¬ 
hig einmal den Bildschirm löschen. 
Danach sehen wir uns das Maschi¬ 
nenprogramm wieder an. 

D3002 

Ganz wird das Multiplikationspro¬ 
gramm durch diesen Monitorbefehl 
nicht angezeigt. Um den Rest zu 
disassemblieren, ist nur noch ein 
D ohne nachfolgende Adresse einzu¬ 
geben. 

D 

Disassembliert sollte das Programm 
sich nun darstellen, wie es nachfol¬ 
gend zu sehen ist. 


3002 

a9 00 30 

lda 

#$00 

3004 

8e 00 30 

stx 

$3000 

3007 

8c 01 30 

sty 

$3001 

300a 

aO 08 

ldv 

#$08 

300c 

0a 

asl 


300d 

Oe 00 30 

asl 

$3000 

3010 

90 04 

bcc 

$3016 

3012 

18 

clc 


3013 

6d 01 30 

ade 

$3001 

3016 

88 

dey 


3017 

dO f3 

bne 

$300c 

3019 

ac 01 30 

Idy 

$3001 

301c 

60 

rts 



Rechts neben dem Punkt erscheint 
die jeweilige Speicheradresse. Die 
nachfolgenden ein, zwei oder drei 
Byte sind der Operationscode und 
ein oder zwei Parameter. Darauf fol¬ 
gen die disassemblierten Mnemonics. 
Interessant ist, daß bei der absoluten 
Adressierung dem Operationscode 
erst das Low-Byte der Speicheradres¬ 
se und dann erst das High-Byte folgt. 
Den Operationscodes für die beding¬ 
ten Sprünge folgt nicht eine absolu¬ 
te Sprungadresse, sondern nur ein 
einziges Byte, das angibt, um wie¬ 
viel Adressen der Programmzähler 
verstellt werden soll. Im Verzwei¬ 
gungsfalle landet der Programmzäh¬ 
ler beim BCC in Adresse $3010 


nicht bei $3012 sondern, vier Adres¬ 
sen weiter, bei $3016. Zahlen ab 
$80 sind negativ, wobei $ff der Dezi¬ 
malzahl —1 entspricht und $80 der 
Dezimalzahl —128. 

Der Sprungbefehl in Adresse S3017 
landet daher bei Adresse $300 c. 
Relative Sprünge bringen einen ent¬ 
scheidenden Vorteil. Die Program¬ 
me sind verschiebbar. Wir kopie¬ 
ren unser Maschinenprogramm. 

T3002,301C,3100 

D3100 

Die disassemblierten Sprungadres¬ 
sen sind andere, als wir ursprünglich 
erfaßt hatten. Der Disassembler 
zeigt jetzt automatisch die richti¬ 
gen neuen Sprungadressen an, da ja 
nur die Sprungweite im Maschinen¬ 
programm steht. 

G 

Wir stoßen auf eine Eigenheit des 
Maschinenmonitors. Sobald wir As¬ 
semblierungen vorgenommen ha¬ 
ben, landen wir beim Fortsetzen 
mit Go nicht, wie wir es gewohnt 
sind, im CPU-Programm, sondern 
im Eingabemodus des BASIC-Inter¬ 
preters. Unser CPU-Programm ist 
nicht verlorengegangen, es läßt sich 
wieder starten. 

RUN 

Jetzt haben wir die Gelegenheit, den 
JSR-Befehl und unser Maschinenpro¬ 
gramm auszuprobieren. 

LDX #$05 
LDY #$07 
JSR $3002 

Das Multiplizieren klappt ja direkt 
hervorragend. Mit dem Befehlssatz 
des Prozessors sind wir am Ende an¬ 
gelangt. Zu besprechen sind ledig¬ 
lich noch die verschiedenen Adres¬ 
sierungsarten. 


VII. ADRESSIERUNGSARTEN 
DER CPU 


Neben impliziter, unmittelbarer 
und absoluter Adressierung bietet 
die CPU unseres Rechners eine Viel¬ 
zahl weiterer Adressierungen. Drei¬ 
zehn sind es insgesamt. Mit indirek¬ 
ter und indizierter Adressierung 
können wir ganze Speicherbereiche 
durchwühlen. Eine Befehlstabelle 
gibt uns den Überblick. 

In der Beschreibung der Adressie¬ 
rungsarten sind auch Befehlslänge 
und Befehlsdauer angegeben. Die 


Befehlsdauer miß sich in Taktzyk¬ 
len. Im Normalfall wird unsere CPU 
mit der Frequenz von einem Mega¬ 
hertz getaktet. Das sind eine Mil¬ 
hon Takte in der Sekunde. Ein Takt 
dauert so eine Millionstel Sekunde, 
anders ausgedrückt, eine Mikrose¬ 
kunde. Ein Befehl, der in zwei Takt¬ 
zyklen abgearbeitet wird, braucht 
somit zwei Mikrosekunden. 500000 
solcher Befehle könnten also in der 
Sekunde durchgeführt werden, eine 
ganz erkleckliche Anzahl. Kein Wun¬ 
der also, daß in Maschinensprache ge¬ 
schriebene Programme als ungeheu¬ 
er schnell gelten. 

Manche Adressierungsarten arbeiten 
schneller als andere. Manche neh¬ 
men weniger Programmspeicher in 
Anspruch, weil die Befehslänge 
eventuell kürzer ist. Andere Adres¬ 
sierungsarten fixieren uns nicht auf 
bestimmte Adressen, sondern erlau¬ 
ben uns, Routinen zu schreiben, die 
auf jeden beliebigen Speicherbereich 
zugreifen können. In der Befehlsta¬ 
belle sehen wir, welche Adressierun¬ 
gen für welche Operationen zur Ver¬ 
fügung stehen, und können so das 
für unseren Zweck geeignetste aus¬ 
wählen. 

A. Unmittelbare Adressierung _ 

Beispiel: LDY #$05 

Befenlslänge: Zwei Byte 
Taktzyklen: Zwei 

Dem Operationscode folgt unmittel¬ 
bar das Daten-Byte, das mit dem 
Akkumulatorinhalt verknüpft wird. 

B. Absolute Adressierung _ 

Beispiel: STA $3000 

Befehlslänge: Drei Byte 
Taktzyklen: Drei bis sechs 

Dem Operationscode folgt eine Zwei- 
Byte-Adresse. Hierbei wird erst das 
Low- und dann das High-Byte im 
Speicher abgelegt. Der JMP-Befehl 
benötigt drei Taktzyklen, der JSR 
sechs. Befehle, die eine Änderung 
einer Speicherzelle bewirken, benö¬ 
tigen sechs Taktzyklen. Die Ausnah¬ 
me bildet der Store-Befehl mit vier 
Taktzyklen. Lade- und sonstige Be¬ 
fehle, die den Inhalt einer Speicher¬ 
zelle mit einem CPU-Register ver¬ 
knüpfen, dauern ebenfalls vier Takt¬ 
zyklen. 

C. Zero-Page-Adressierung _ 

Beispiel: LDA $01 

Befenlslänge: Zwei Byte 
Taktzyklen: Drei bis fünf 

Um Adressen von $00 bis $FF anzu¬ 
sprechen, kann auf ein High-Adress- 
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Byte verzichtet werden. Dem Ope¬ 
rationscode folgt nur ein einziges 
Adress-Byte. Kürzer ist nicht nur die 
Länge des Befehls, sondern auch die 
Abarbeitungszeit. Ein Taktzyklus 
wird gespart. 

D. Akku-Adressierung _ 

Beispiel: ASL 

Befenlslänge: Ein Byte 
Taktzyklen: Zwei 

Da keine Werte übergeben werden 
und keine Speicherzelle zu adressie¬ 
ren ist, wird nur der Operationscode 
benötigt. 

E. Implizite Adressierung _ 

Beispiel: SEC 

Befehlslänge: Ein Byte 
Taktzyklen: Zwei bis sechs 

Die Adressierung ist bereits durch 
den Operationscode bestimmt. Da¬ 
ten oder Adreßparameter erübrigen 
sich daher. Befehle, die nicht auf 
den Speicher zugreifen, dauern zwei 
Taktzyklen. Push-Befehle vier, die 
Rücksprünge RTS und RTI benöti¬ 
gen gar sechs Zyklen. Mit RTI wird 
von einem Interrupt wieder zurück¬ 
gesprungen. Da ein Interrupt nicht 
nur die Rücksprungadresse, son¬ 
dern auch das Statusflag auf den 
Stapel rettet, wird dieses durch RTI 
wieder restauriert. 

F. Indiziert-indirekte Adressierung 

Beispiel: LDA ($D0,X) 

Befenlslänge: Zwei Byte 
Taktzyklen: Sechs 

Dem Operationscode folgt ein 
Adreß-Byte. Indirekt adressiert heißt, 
daß nicht die durch den Adreßpara¬ 
meter bestimmte Zelle adressiert 
wird, sondern, daß in der spezifizier¬ 
ten und der nachfolgenden Speicher¬ 
stelle sich erst die Adresse der Zelle 
findet, auf die die Operation zugreift. 
Indiziert heißt, daß zur Adreßbil- 
dung zusätzlich ein Index-Register 
einbezogen wird. Bei der indiziert¬ 
indirekten Adressierung der CPU 
6502 ist dieses das X-Register. 

Der Inhalt des X-Registers wird in 
unserem Beispiel zur Adresse $D0 
addiert. Wir erhalten so die Adresse 
der Speicherstelle. In dieser und der 
nachfolgenden finden wir endlich 
die Adresse unserer Speicherstelle, 
die es anzusprechen gilt. Bei der 
Summierung der X-Register und der 
Zero-Page-Adresse bleibt ein Über¬ 
trag unberücksichtigt, so daß für in¬ 
direkte Adressierungen auch wirk¬ 
lich nur Speicherstellen von $00 
bis $FF in Frage kommen. 


Die meisten Zero-Page-Adressen 
sind bereits für Operationen des Be¬ 
triebssystems vergeben. Zur freien 
Verfügung steht dem CI 6/116/ 
Plus4-User der Bereich von $D0 
bis $E8, in dem er nach Belieben 
schalten und walten kann. Um die 
Sache noch etwas zu verdeutlichen, 
nehmen wir einmal an, das X-Regi¬ 
ster hätte den Wert #$02, in der 
Speicherstelle $D2 stünde der Wert 
#$00 und in $D3 der Wert #$30. 

Die adressierte Speicherstelle wäre 
in diesem Falle $3000. 

G. Indirekt-indizierte Adressierung 

Beispiel: LDA $(D0),Y 

Befehslänge: Zw'ei Byte 

Taktzyklen: Fünf bis sechs 

Der SYore-Befehl benötigt sechs Zyk¬ 
len, die anderen Befehle nur fünf. 
Diese Adressierungsart wird öfter be¬ 
nötigt als die indiziert-indirekte. Zur 
Adresse in den zwei Speicherstellen 
in der Zero-Page wird der Inhalt des 
Y-Registers addiert. Die Summe da¬ 
von ist die Adresse unserer anzuspre¬ 
chenden Speicherzelle. Hätte das 
Y-Register den Wert #$81. die Spei¬ 
cherstelle $D0 den Wert #$80 und 
$D1 den Wert #$30, so würde durch 
die Operation die Speicherstelle 
$3101 angesprochen werden. 
Überträge bei der Summierung der 
Adress-Low-Byte werden berück¬ 
sichtigt. Bei allen indizierten Adres¬ 
sierungsarten ist, wenn solche Page¬ 
überschreitungen auftreten, ein 
Taktzyklus hinzuzuaddieren. 

H. Zero-Page-indizierte Adressierung 

mit Indexregister X _ 

Beispiel: LDA $D0,X 

Befenlslänge: Zwei Byte 
Taktzyklen: Vier bis sechs 

Die Abarbeitungszeit der Befehle 
entspricht derjenigen der absoluten 
Adressierung. Zur Adresse wird der 
Inhalt des X-Registers addiert. Es 
können nur Speicherstellen von $00 
bis $FF angesprochen werden. Ein 
Übertrag bei der Addition der Adres¬ 
sen wird unterschlagen. 

I. Direkt indizierte Adressierung 

mit Indexregister X _ 

Beispiel: LDA $3000,X 

Befehlslänge: Drei Byte 
Taktzyklen: Vier bis sieben 

Der STA -Befehl benötigt fünf Takt¬ 
zyklen, sonstige Befehle, die den In¬ 
halt einer Speicherstelle verändern, 
gar sieben. Alle übrigen Operationen 
geben sich mit vier Zyklen zufrieden. 


Wie bei der direkten Adressierung 
besteht die Basisadresse aus zwei 
Byte. 

Anders als bei der Zero-Page-indizier- 
ten Adressierung wird bei der Bil¬ 
dung der Operandenadresse ein aus 
der Summierung der Low-Byte resul¬ 
tierender Übertrag berücksichtigt. 
Hätte X den Wert #$81, so würde 
mit LDA $3080,X die Speicherstelle 
$3101 angesprochen. 

J. Direkt indizierte Adressierung 

mit Indexregister Y _ 

Beispiel: LDA $3000,Y 

Befenlslänge: Drei Byte 
Taktzyklen: Vier bis fünf 

Zur Basisadresse wird das Y-Regi¬ 
ster addiert. Der STA-Befehl braucht 
fünf Taktzyklen, die anderen Befeh¬ 
le nur vier. 

K. Relative Adressierung _ 

Beispiel: BCC$3016 

Befehlslänge: Zwei Byte 
Taktzyklen: Zwei bis drei 

Dem Operanden folgt ein Byte, das 
die Sprungweite signalisiert. Zahlen 
von #$80 bis #$FF gelten als nega¬ 
tiv. Sprünge können so nur in einem 
Bereich von Null bis 1 27 Adressen 
nach vorne und —1 bis 128 Adressen 
nach rückwärts erfolgen. Ist die Ver¬ 
zweigungsbedingung nicht erfüllt, so 
benötigt der Befehl zwei Taktzyk¬ 
len, im Verzweigungsfalle drei. Bei 
Page-Überschreitung ist ein weiterer 
Taktzyklus hinzuzuaddieren. 

L. Indirekte Adressierung _ 

Beispiel: TMP ($0324) 

Befenlslänge: Drei Byte 
Taktzyklen: Fünf 

Eine indirekte Adressierung, die 
nicht auf Zero-Page-Adressen be¬ 
schränkt ist, kennt nur der JMP- Be¬ 
fehl. In unserem Falle erfolgt der 
Sprung nach der Adresse, die in den 
Speicherstellen $0324 und $0325 
vermerkt ist. Einige wichtige Be¬ 
triebssystemroutmen unserer Com- 
modore-Rechner werden indirekt 
über sogenannten Sprungvektoren 
aufgerufen, die im RAM lokalisiert 
sind. Durch das Ersetzen der Adres¬ 
se in den Speicherstellen $0324 
und $0325, ist es ein Leichtes, eine 
neue Ausgaberoutine zu schreiben, 
die zum Beispiel für einen Epson- 
Drucker den Commodore-ASCII 
in Standard-ASCII umwandelt. Die 
Adresse eines direkten Sprunges im 
ROM hätten wir nicht manipulie¬ 
ren können, da aus dem ROM ja 
bekanntlich nur gelesen werden 
kann. 
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M. Zero-Page-indizierte Adressierung 
mit Indexregister Y _ 

Beispiel: LDX $D0,Y 

Befehlslänge: Zwei Byte 
Taktzyklen: Vier 

Indexregister ist Y. Ansonsten gilt 
das bereits über diese Adressierungs¬ 
art mit Indexregister X Gesagte. 

Die Üb er sicht stab eile gibt Auskunft, 
welche Adressierungsarten für welche 
Operationen bereitstehen. Sollte der 
Assembler einmal einen Befehl nicht 
annehmen wollen, wie LDA $D0,Y, 
so belehrt uns die Tabelle sogleich, 
daß es eine Zero-Page-indizierte 
Adressierung mit Y-Register nur für 
LDX und STX gibt. Ein paar Spal¬ 
ten weiter links sagt sie uns, daß 
die direkt indizierte Adressierung 


jedoch möglich ist, und wir mit 
LDA $00D0,Y zum Ziel kommen. 


Beeinflussung der Statusflags 

Zur Erstellung der Programmlogik 
ist es notwendig, zu wissen, welcher 
Befehl welches Statusflag beeinflußt. 
In der rechten Spalte unserer Über¬ 
sichtstabelle findet sich diese Infor¬ 
mation. Auf die Darstellung von 
Bit vier und fünf des Statusregisters 
haben wir verzichtet, da Bit fünf kei¬ 
ne Funktion hat und Bit vier, das 
Break-Bit, nur bei einem einzigen 
Befehl gesetzt wird, dem BRK- 
Befehl. 

Dieses Flag wird im Betriebssystem 
unseres Rechners nur ein einziges 
Mal beim Interrupt abgefragt. Ist 


dieses Bit dort gesetzt, wird über 
den Sprungvektor $032C der Ma¬ 
schinenmonitor aufgerufen. Wol¬ 
len wir den Sprung in den Monitor 
durch eine andere Routine ersetzen, 
so genügt eine Umstellung des Break- 
Vektors. Um das Break-Bit brauchen 
wir uns also nicht zu kümmern, 
wenn wir nicht selbst ein vollkom¬ 
men neues Betriebssystem schrei¬ 
ben wollen. 

Wir ersehen aus der Tabelle, daß die 
Statusflags bei Sprüngen, ob beding¬ 
ten, absoluten oder Unterroutinen- 
Aufrufen, nicht beeinflußt werden. 
Ebenfalls keine Änderungen treten 
beim Schreiben von Registerinhal¬ 
ten in Speicherstellen auf, ob dieses 
nun mit Store-Befehlen, wie STA, 
STX, STY oder mit den Stapelbefeh¬ 
len PHA und PHP geschieht. 

Für den Registertransfer TSX, BRK, 
dem Sprung in den Break-Interrupt, 
und NOP, das gar nichts macht, gilt 
dasselbe. 

Die spezifischen Set- und Clear-Be- 
fehle für die einzelnen Statusflags 
ändern nur das jeweilige Bit, auf das 
sie sich beziehen. PLP und RTI stel¬ 
len das ehemals gerettete Statusflag 
wieder her. Die sonstigen Befehle 
beeinflussen das Vorzeichen-Bit N 
und das Zero-Flag Z. Bei Shift-, 
Rotate-Befehlen, Addition, Sub¬ 
traktion und Vergleichen wird zu¬ 
sätzlich das Carry-Flag beeinflußt. 
Addition, Subtraktion und der Bit- 
Befehl wirken sich auch auf das 
Überlauf-Flag V aus. 


VIII. EIN- UND 
AUSGABEROUTINEN 


Über eine Standard-Sprungtabelle, 
das Kernel, kann jedes Ein- und 
Ausgabegerät angesprochen werden. 
Das Kernel sorgt dafür, daß Maschi¬ 
nenprogramme, die sonst keine 
systemspezifischen Adressen ver¬ 
wenden, auf jedem Acht-Bit-Com- 
modore-Recnner lauffähig sind. 

Was nutzt ein Rechner, der eine CPU 
besitzt, über ROM und RAM verfügt, 
jedoch keine Möglichkeiten bietet, 
Daten ein- oder auszugeben? Ein 
Rechner, der nicht die Möglichkeit 
bietet, mit seiner Umgebung zu 
kommunizieren, ist zu überhaupt 
nichts nütze. Wir benötigen daher 
noch diverse Ein- und Ausgabeope- 
rätionen. Für die Kommunikation 
mit der Außenwelt besitzt der Rech¬ 
ner verschiedene I/O-Bausteine, die 
über bestimmte Adressen angespro¬ 
chen werden können. 

Da für das Ansprechen solcher Bau¬ 
steine ziemliche Kenntnisse über 
dieselben und über den Aufbau des 
bestimmten Rechners erforderlich 
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wären, haben die Systemprogram¬ 
mierer bereits die erforderlichen 
Routinen programmiert. 

Ein solches Betriebssystem muß vor¬ 
handen sein, sonst könnten wir gar 
kein Programm in den Rechner 
bringen. Nicht einmal ein einziger 
Tastendruck würde vom Rechner 
verarbeitet werden können. 

Der Teil des Betriebssystem, der 
für Ein- und Ausgaben verantwort¬ 
lich ist, heißt BIOS, was Basic Input 
Output System bedeutet. Das Wort 
Basic hat nichts mit der Program¬ 
miersprache BASIC zu tun, sondern 
sagt aus, daß es hier um einfache 
Ein- und Ausgaberoutinen geht, die 
die Grundlage für die Kommunika¬ 
tion mit der Peripherie bilden, und 
auf die alle komplexeren Ein- und 
Ausgaberoutinen wie beispielsweise 
der PRINT-Befehl oder der INPUT- 
Befehl zurückgreifen. 

Um auch bei unterschiedlich organi¬ 
sierten Rechnern dafür zu sorgen, 
daß diese in gleicher Weise zu hand¬ 
haben sind, wird der Aufruf dieser 
Funktionen standardisiert. Beim 
VC20, C64, CI 6/116/Plus4 und dem 
CI 28 gibt es einen Speicherbereich 
im ROM, der an genau denselben 
Stellen eine Sprungliste, das Kernel, 
für diese wichtigen Systemaufrufe 
enthält. Um ein Zeichen aus dem 
Tastaturpuffer zu lesen, brauchen 
wir deshalb nicht zu wissen, wo die¬ 
ser in unserem Rechner ist, und wie 
er verwaltet wird. Es existiert schließ¬ 
lich schon die Routine, die dies für 
uns erledigt. Wo diese Routine in un¬ 
serem Rechner genau liegt, braucht 
uns ebenfalls nicht zu interessieren. 
Alles, was wir wissen müssen, ist, 
daß bei Ansprung der Adresse $FFE4 
der Rechner in die gewünschte Rou¬ 
tine verzweigt. 

Eingaberoutinen _ 

Zwei fundamentale Routinen be¬ 
sitzt unser Rechner, mit denen wir 
Daten von einem externen Gerät 
lesen können: 

GETIN ($FFE4) 

Mit dieser Routine können wir Da¬ 
ten von einem Eingabegerät einiesen. 
Die BASIC-Befehle GET und GET* 
bauen darauf auf. Wurde zuvor kein 
anderes Gerät als Eingabegerät defi¬ 
niert. so wird ein Zeichen aus dem 
Tastaturpuffer oder dem Funktions¬ 
tastenpuffer an den Akku den Wert 
=$00 zugewiesen. 

JSR $FFE4 

Im Akku sollte sich nun der Wert 
=$00 befinden. Wir geben den Be¬ 


fehl jetzt erneut ein. Da eine Wieder¬ 
holung vorhegt, brauchen wir hierzu 
nur die Return-Taste zu drücken. 
Gleich nach dem Druck dieser Taste, 
sollten wir blitzschnell noch eine an¬ 
dere Taste drücken. Bis das in BASIC 
verfaßte CPU-Programm in das Ma¬ 
schinenprogramm verzweigt, sollte 
der ASCII-Wert der gedrückten Ta¬ 
ste bereits im Tastenpuffer abgelegt 
sein. Der Akkumulator zeigt im An¬ 
schluß diesen Wert. GETIN wartet 
nicht auf einen Tastendruck, wie die¬ 
ses der BASIC-Befehl GETKEY tut. 
Da je nach erhaltenem Wert auch 
das Statusflag beeinflußt wird, kön¬ 
nen wir das Warten auf einen Tasten¬ 
druck leicht selbst programmieren. 

BRK 

A301D JSR $FFE4 
BEQ $301D 
RTS 
G 

RUN 

JSR $301D 

BASIN ($FFCF) _ 

Auch BASIN Best sowohl von der 
Tastatur, wie auch von sonstigen 
Eingabegeräten. Ist nicht die Tasta¬ 
tur das Eingabegerät, so besteht 
zwischen GETIN und BASIN kein 
Unterschied. Beim Lesen von der 
Tastatur ist der Unterschied nicht 
zu übersehen. 

JSR $FFCF 

Deutlich wird hier, daß BASIN die 
Grundlage des INPUT-Befehls bildet. 
Es erscheint ein blinkender Cursor 
und wir können soviel Zeichen ein¬ 
geben, wie wir gerne möchten. Erst 
beim Druck der Return-Taste wird 
die BASIN-Routine beendet und 
wir bekommen das an erster Stelle 
eingegebene Zeichen in den Akku. 
Wie bekommen wir aber nun die 
restlichen Zeichen? Da das CPU- 
Programm hierauf keine Antwort zu 
geben vermag, so sei Ihnen dieses 
jetzt verraten. Bei jedem folgenden 
Aufruf von BASIN wird das nächste 
Zeichen in den Akku geladen, bis 
schließlich das Ende der Eingabe 
erreicht ist, was der Akku uns mit 
#$0D für das Retumzeichen anzeigt. 
Eingegebene Leerstellen am Ende 
werden ignoriert. Das CPU-Pro¬ 
gramm stört diese Eigenheit von 
BASIN. Deshalb verfassen wir ein 
kleines Maschinenprogramm, mit 
dem wir Eingaben nach Wahl im 
Hauptspeicher unseres Rechners po¬ 
sitionieren können. Wie dieses geht, 
sollten Sie nun schon wissen. Hier 
ist das disassemblierte Monitor- 
listing. 


3023 

84 dO 

sty 

$d0 

3025 

86 dl 

stx 

$dl 

3027 

aO 00 

ldy 

*$00 

3029 

20 cf ff 

jsr 

$ffcf 

302c 

91 dO 

sta 

($d0),> 

302e 

e6 dO 

inc 

$d0 

3030 

dO 02 

bne 

$3034 

3032 

e6 dl 

inc 

$dl 

3034 

c9 Od 

cmp 

*$0d 

3036 

dO fl 

bnc 

$3029 

3038 

a4 dO 

ldy 

$d0 

303a 

a6 dl 

ldx 

$dl 

303c 

60 

rts 



Um das Programm verschiebbar zu 
gestalten, benutzten wir die indirek¬ 
te Adressierung. Um einen größeren 
Bereich als 256 Byte ansprechen zu 
können, und nicht am Ende extra 
den Wert des Y-Registers zum In¬ 
halt der Speicherstelle $D0 addie¬ 
ren zu müssen, verzichteten wir auf 
eine Indizierung, indem wir das Y- 
Register kurzerhand auf Null setz¬ 
ten. Schnell genug ist das Programm 
wohl schon auch so. 

Vor dem ersten Aufruf dieses Pro¬ 
grammes ist dem X-Register das 
High-Byte der Speicheradresse und 
dem Y-Register das Low-Byte mit¬ 
zuteilen. Die Eingabe wird beim 
Aufruf ab dieser Adresse gespei¬ 
chert. Sowohl die Speicherzellen 
$D0 und $D1, als auch die Index¬ 
register weisen hinterher auf die 
den abgespeicherten Daten folgen¬ 
de Speicherstelle. Durch mehrmali¬ 
gen Aufruf dieses Maschinenpro¬ 
grammes können so kontinuierlich 
weitere Abspeicherungen vorgenom¬ 
men werden. Sollten bei zwischen¬ 
durch erfolgenden Operationen die 
Indexregisterinhalte verlorenge¬ 
hen, so braucht die Eingabe das 
nächste Mal anstatt mit JSR $3023 
nur mit JSR $3027 angesprungen 
zu werden. Wir probieren in unse¬ 
rem CPU-Programm ein paar Ein¬ 
gaben. 

LDX *$31 
LDY #$00 
JSR $3023 

Durch Druck der Returntaste kön¬ 
nen wir weitere Eingaben vorneh¬ 
men. 

BRK 

M3100 

G 

Im Monitor können wir uns vom 
Funktionieren der Routine überzeu¬ 
gen. 

Die Ausgaberoutine BSOUT 
($FFD2) _ 

BSOUT bildet die Grundlage für al¬ 
le Ausgaben. Der im Akku befindli- 
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che Wert wird an das Ausgabegerät 
gesandt. 

Sofern nichts anderes definiert wur¬ 
de, ist dieses der Bildschirm. 

LDA #$41 
JSR $FFD2 

Auf dem Bildschirm sollte der Buch¬ 
stabe A erscheinen. Bei einem län¬ 
geren auszugebenden Text ist jedes¬ 
mal ein Zeichen in den Akku zu la¬ 
den und es dann mit BSOUT auszu¬ 
geben, ist die schnellste, aber na¬ 
türlich nicht die richtige Methode. 
Genauso, wie bei der Eingabe, ver¬ 
fassen wir daher eine Routine, die 
Daten ausgibt, welche in irgendei¬ 
nem Speicherbereich liegen. 


303d 

84 d2 

sty 

$d2 

303f 

86 d3 

stx 

$d3 

3041 

aO 00 

Idy 

#$00 

3043 

bl d2 

ldk 

($ d 2j,y 

3045 

20 d2 

ff jsr 

2>ffd2 

3048 

e6d2 

mc 

$d2 

304a 

dO 02 

bne 

$304e 

304c 

e6 d3 

inc 

$d3 

304e 

c9 Od 

cmp 

#$0d 

3050 

dO fl 

bne 

$3043 

3052 

a6d3 

ldx 

$d3 

3054 

a4d2 

ldy 

$d2 

3056 

60 

rts 



Oft erfolgen Ein- und Ausgaben ab¬ 
wechselnd. Damit keine gegenseiti¬ 
ge Verstellung der Zeiger auftritt. 
Haben wir die Adressen $d2 und 
$d3 als Ausgabezeiger verwendet. 

Soll beim erweiterten CI 6 oder 
Plus4 auch der gebankte RAM-Spei¬ 
cher ab Adresse $8000 angesprochen 
werden, so wäre die Routine etwas 
zu verändern. Dieses Thema werden 
wir aber erst später behandeln. Nun 
wollen wir die vorher eingegebenen 
Daten auf den Bildschirm ausgeben. 

LDX #$31 
LDY #$00 
JSR $303C 
JSR $303C 
JSR $303C 

Ansteuerung externer Geräte _ 

OPEN, CLOSE, und CMD gibt es 
auch für Maschinensprache. Zur Pa¬ 
rameterübergabe an den OPEN-Be- 
fehl bedarf es aber erst einiger vor- 
bereitetender Routinen. 

SETLFS ($FFBA) _ 

Mit SETLFS werden die logische 
Dateinummer, die Geräte- und die 
Sekundäradresse erfaßt. Wir laden 
die Dateinummer in den Akku, die 
Geräteadresse in das X-Register und 
die Sekundäradresse in das Y-Regi- 
ster. 


Beispiel: OPEN 1,4,7 


LDA #$01 
LDX #$04 
LDY #$07 
JSR $FFBA 

Soll keine Sekundäradresse angege¬ 
ben werden, so ist Y mit =$FF zu 
laden. 


SETNAM ($FFBD) _ 

Um bei Kassetten- oder Disketten¬ 
operation auch einen Dateinamen 
angeben zu können, existiert die 
SETNAM-Routine. Hierbei wird dem 
Akku die Länge des Dateinamens, 
dem X-Register das Low-Byte der 
Adresse, wo der Dateiname sich be¬ 
findet, und dem Y-Register das 
Adreß-High-Byte mitgeteilt. Beim 
Drucker ist kein Dateiname erfor¬ 
derlich. In diesem Falle geben wir 
die Länge des Dateinamens mit Null 
an. Um die Adresse brauchen wir 
uns dann nicht mehr zu kümmern. 

LDA #$00 
JSR $FFBD 

OPEN ($FFCO) _ 

Nachdem die Parameter durch 
SETLFS und SETNAM festgelegt 
sind, können diese durch OPEN in 
der File-Tabelle des Rechners ver¬ 
merkt werden. 


JSR $FFC0 

Bei Floppy oder Datasette werden 
diese Geräte zusätzlich angesteuert, 
um entweder den entsprechenden 
File zu suchen oder anzulegen. 

CHKOUT ($FFC9) _ 

Dieser Befehl entspricht dem CMD- 
Befehl, der uns bereits vom BASIC 
her bekannt ist. Nachdem ein ent¬ 
sprechender File mit OPEN eröff¬ 
net wurde, können wir das Ausgabe¬ 
gerät umdefinieren. Hierzu ist das 
X-Register mit der Kanalnummer, 
zu laden und CHKOUT aufzurufen. 

LDX #$01 
JSR $FFC9 

Daten, die jetzt mit BSOUT ausge¬ 
geben werden, erscheinen nun nicht 
mehr auf dem Bildschirm. Späte¬ 
stens beim ersten Zeichen nach ei¬ 
nem Return mit Code #$0D sollte 
der Drucker mit dem Druck be¬ 
ginnen. 


LDA #$41 
JSR $FFD2 
LDA #$0D 
JSR $FFD2 


LDA #$42 
JSR $FFD2 
LDA #$0D 
JSR $FFD2 


Der Buchstabe A wird jetzt in jedem 
Fall auf dem Drucker ausgegeben. 
Wenn der Buchstabe B noch nicht er¬ 
scheint, so tut er dies bestimmt, 
wenn der Druckerkanal wieder ge¬ 
schlossen wird. 

CLRCHN ($FFCC) _ 

Um wieder die Tastatur als Eingabe¬ 
gerät und den Bildschirm als Ausga¬ 
begerät zu definieren, ist keine Pa¬ 
rameterübergabe, sondern nur der 
Aufruf von CLRCHN nötig. 

JSR $FFCC 
LDA #$41 
JSR $FFD2 

Das Zeichen A erscheint wieder auf 
dem Bildschirm. Mit CHKOUT kann 
jederzeit wieder auf den Drucker 
umgeschaltet werden. 

CLOSE ($FFC3) _ 

Wurde ein Kanal mit CLRCHN ge¬ 
schlossen, so können wir, sofern wir 
ihn nicht mehr benötigen sollten, 
ganz aus unserer File-Tabelle besei¬ 
tigen. Hierzu ist der Akkumulator 
mit der Kanalnummer zu laden. 

LDA #$01 
JSR $FFC3 

Mit CHKOUT auf den Drucker um¬ 
schalten zu wollen, ist jetzt zweck¬ 
los. Denn der Rechner kennt die 
Geräteparameter nicht mehr. Erst 
nach erneutem Anlegen mit SET¬ 
LFS, SETNAM und OPEN bekom¬ 
men wir unseren Drucker wieder in 
den Griff. Der CLOSE-Bcfehl ist be¬ 
sonders wichtig bei Kassetten- und 
Diskoperationen, damit Floppy- 
und Datasettendatei ordentlich ge¬ 
schlossen werden. 

CLALL ($FFE7) _ 

Ziemlich radikal ist diese Routine. 
Wie CLRCHN schließt sie den jewei¬ 
ligen Gerätekanal. Zusätzlich be¬ 
seitigt sie aber alle Einträge aus der 
Filetabelle. Wenn ein Gerät noch 
ordentlich mit CLOSE abgeschlos¬ 
sen werden sollte, gibt es Probleme, 
da die Geräteparameter und der 
Dateiname nicht mehr greifbar sind. 

CHKIN ($FFC6) _ 

Wie CHKOUT einen Ausgabekanal 
öffnet, so tut dieses CHKIN mit 
einem Eingabekanal. Mit GET1N 
oder BASIN können die Daten 
dann vom entsprechenden Gerät 
eingelesen werden. Das Öffnen ei¬ 
nes Eingabekanals hat keinen Ein¬ 
fluß auf den Ausgabekanal und um¬ 
gekehrt. Daten können so von ei- 
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nem externen Gerät eingelesen und 
mit BSOUT gleich wieder auf das 
Ausgabegerät ausgegeben werden. 
Die Parameterübergabe erfolgt bei 
CHKIN ebenfalls über das X-Regi- 
ster. 

READST ($FFB7) _ 

Von BASIC her ist uns die- Status¬ 
variable bereits bekannt. Wenn 
READST aufgerufen wird, bekom¬ 
men wir die Statusvariable in den 
Akku. Daraus können wir ersehen, 
ob das Ende einer Datei erreicht 
ist, oder sonstige Fehler vorliegen. 


Auf Diskette speichern _ 

LDX #$ 08 
JSR FFC9 
LDX #$31 
LDY #$00 
JSR $303D 
JSR S303D 
JSR $303D 
; SR $FFCC 
.DA #$08 
JSR $FFC3 

Da die Daten nun gespeichert sind, 
können wir in den Monitor gehen 
und sie löschen. 


Ein- und Ausgabe-Experimente 

Wenn unsere beiden Maschinenpro¬ 
gramme für Ein- und Ausgabe noch 
im Speicher vorliegen,so können 
wir ein wenig experimentieren. 

Datei für Drucker anlegen _ 

LDA #$ 04 
TAX 

LDY #$07 
JSR $FFBA 
LDA #$00 
JSR $FFBD 
JSR $FFC0 

Daten erfassen 


LDA #$31 
LDY #$00 
. SR $3023 
Eingabe nach Wahl 
, SR $3023 
Eingabe nach Wahl 
, SR $3023 
Eingabe nach Wahl 

Daten auf Drucker ausgeben 


LDX #$04 
JSR $FFC9 
LDX #$31 
LDY #$00 
SR S303D 
SR $303D 
SR $303D 
SR $FFCC 

Dateiname erfassen 


LDX #$38 
LDY #$00 
JSR $3023 
TESTDATEI,S,W 

Diskettendatei eröffnen 


LDA #$08 

TAX 

TAY 

JSR $FFBA 
LDA #$0D 
LDX #$00 
LDY #$38 
JSR $FFBD 
JSR $FFC0 


BRK 

F3100,3FFF,0 

M3100 

G 

Wir führen diese Operation durch, 
damit niemand sagen kann, wir wür¬ 
den jetzt die Daten aus dem Haupt¬ 
speicher lesen. 

Dateiname eingeben_ 


LDX *$38 
LDY =$00 
JSR $3023 
TESTDATE ,S,R 

Diskettendatei eröffnen 


LDA #$08 

TAX 

TAY 

JSR $FFBA 
LDA #$0D 
LDX #$00 
LDY #$38 
SR $FFBD 
SR $FFC0 

Daten einiesen und ausgeben _ 

LDX #$08 
JSR $FFC6 
LDX #$31 
LDY #$00 
STX $00D3 
STY $00D2 
JSR $3023 
JSR $3041 
JSR $3023 
JSR $3041 
TSR $3023 
TSR $3041 
JSR $FFCC 
LDA #$08 
SR $FFC3 
SR $FFE7 

Ein Blick in den Monitor belehrt uns 
zusätzlich, daß unsere Daten nun 
auch wieder im Hauptspeicher vor¬ 
handen sind. 

BRK 

M3100 

G 


Damit sind wir schon fast am Ende 
unserer Einführung angelangt. Das 
Speichern und Laden von Maschi¬ 
nenprogrammen und das Wandeln 
in DATA-Zeilen sollen noch kurz 
abgehandelt werden. 

Laden und Speichern von 
Maschinenprogrammen _ 

Das Speichern geschieht am besten 
vom Monitor aus. Wir speichern den 
Bereich ab, in dem das Maschinenpro¬ 
gramm steht. Zuerst ist der Buchsta¬ 
be S für Save einzugeben. Diesem 
folgt zwischen Anführungszeichen 
der Filename. Durch Komma ge¬ 
trennt geben wir die Gerätenummer 
ein. Nach einem weiteren Komma 
folgt die Anfangsadresse und zu¬ 
allerletzt, ebenfalls durch Komma 
getrennt, die Endadresse. Die End¬ 
adresse muß um eine Speicherstelle 
höher angegeben werden. Der folgen¬ 
de Befehl würde so zum Beispiel den 
Bereich von $3000 bis $30FF auf 
Diskette sichern. 

S“TESTFILE“,8,3000,3100 

Beim Laden erübrigen sich die Adreß- 
angaben. 

L“TESTFILE“,8 

Bei der Kassette ist anstelle einer 

Acht die Eins als Gerätenummer zu 

verwenden. 

Wandeln in DATA-Zeilen _ 

Für kurze Maschinenroutinen, die in 
ein BASIC-Programm eingebunden 
werden sollen, empfiehlt sich die 
Umwandlung in DATA-Zeilen. Die 
DATA werden vom BASIC-Pro¬ 
gramm wieder in die ursprünglichen 
Speicherstellen gePOKEd. Ein kur¬ 
zes Programm Datawandler besorgt 
die Umwandlung. Nach dem Start 
ist die Zeilennummer einzugeben, 
ab der die DATA abgelegt werden 
sollen. Danach will das Programm 
Anfang und Ende des umzuwandeln¬ 
den Speicherbereiches in hexadezi¬ 
maler Form wissen. Die erzeugten 
Zeilen werden nur auf dem Bild¬ 
schirm ausgegeben. Erst wenn Sie 
mit dem Cursor auf die zu sehen¬ 
den Zeilen fahren und sie mit Re¬ 
turn aufnehmen, stehen diese im 
Programm zur Verfügung. Mit dem 
DELETE-Befehl brauchen Sie nur 
noch die Programmzeilen des Data- 
wandlers zu löschen. AMD 
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CPU — TRAINFR 


10 rein cpu-trainer= : === == = ==: -c16 <de> 

20 rem (p) commodore weit team <ho> 

40 rem [c) by alfons mittelmeyer <cg> 
50 rem <pd> 
60 rem <ah> 
70 rem basic v3.5 <nl> 
80 rem c16/116/plus4 <ki> 

100 poke55,0:poke56,48:clr <bm> 
110 fori=1630to1746 <jp> 
120 reada:pokei,a:next <ag> 
130 data 173,214,006,072,173,211 <fn> 
140 data 006,174,212,006,172,213 <li> 
150 data 006,040,076,050,003,141 <hk> 
160 data 211,006,142,212,006,140 <db> 
170 data 213,006,008,104,141,214 <if> 
180 data 006,088,216,096,173,211 <om> 
190 data 006,174,215,006,157,000 <jp> 
200 data 001,206,215,006,096,238 <el> 
210 data 215,006,174,215,006,173 <ef> 
220 data 214,006,072,040,189,000 <fd> 
230 data 001,141,211,006,008,104 <no> 


240 data 141,214,006,088,216,096 <oi> 
250 data 173,214,006,024,144,215 <dm> 
260 data 238,215,006,174,215,006 <kd> 
270 data 189,000,001,141,214,006 <nn> 
280 data 096,173,214,006,072,040 <jd> 
290 data 173,215,006,141,212,006 <pb> 
300 data 008,104,141,214,006,088 <ni> 


310 data 024,096,173,212,006,141 <ik> 

320 data 215,006,096 <no> 

330 sys1647:poke1751,127 <nj> 

340 rem-<ip> 

350 rem variablen <oo> 

360 rem- < gg > 

370 b$=chr$(32):b4$=b$+b$+b$+b$ <cg> 

380 a$(0)= H aiiiiiiiib" <cd> 

390 a$(1)=" J00000000 j" <ff> 

400 a$( 2) ="diiiiieiif" <kh> 

410 a$(3)="000000j00j” <dl> 

420 a$(4)="00000agiif" <eh> 

430 a$(5)="00000j000j" <en> 

440 a$(6) ="00000diiic" <bc> 

450 data 032,176,174,189,173 <hf> 

460 data 178,179,177,171,192,221 <fl> 

470 g$=”":fori=0to10:reada:g$=g$+c 
hr$C a):next <il> 

480 forj=0to6:fori=1to10 <oe> 

490 mid$(a$(j),i,1)=mid$( g$, ( ( asc( 
mid$(a$[j),i,1))andl5))+1,1):next: 
nextj < PP > 

500 b$(0)="binaer":b$( 1)="hex" <cp> 

510 b$(2)="dezimal" <gd> 

520 c$="akku"+b4$+"x-register y-re 
gister" <le> 

530 d$=”nv—dizc"+b4$+"Stapel" <fh> 

540 rem- < eg > 


550 rem bildschirmaufbau 

560 rem - 

570 char,0,0, "" : scnclr 
580 gosub910:y=3:gosub900 
590 char,10,1,c$:x=7:y=2:gosub890 
600 x=18:gosub890:x=29:gosub890 
610 y=12:gosub900 

620 char,8,10,d$:x=7:y=11:gosub890 
630 x=18:gosub890:char,0,18,"":gos 
ub910 

640 x$="":gosub950 

650 rem - 

660 rem eingabe 

670 rem - 

680 ifx$="brk"then570 

690 char,0,19,chr$(27)+"q? "+chr$( 

164) 

700 y$=" ":x=1 

710 sys60381:a=peek( 2034):if( a<32a 
nda<>13anda<>20)ora>95then710 
720 ifa=13then800 

730 ifa<> 20 theny$=y$+chr$(a):x=x +1 
:goto760 

740 ifx=1then700 

750 x=x-1:y$=left$(y$,x) 

760 poke2034,157:sys56393:poke2034 
,a:sys56393:poke203,0:poke2034,164 
:sys56393:goto710 

770 rem - 

780 rem eingabe bearbeiten 

790 rem - 

800 ify$ <>n "thenx$=right$(y$,x- 1 ) 
810 poke2034,13:sys56393 
820 ifx$="brk"thenscnclr 
830 poke2034,27:sy956393:poke2034, 
84:sys56393 

840 poke2034,147:sys56393 
850 gosub1180:goto680 

860 rem - 

870 rem routinensammlung 

880 rem-- 

890 fori= 0 to 6 :char,x,y + i,a$( i) :nex 

t:return 

900 fori= 0 to 2 :char, 0 ,y+i+i,b$( i) :n 
ext:return 

910 poke2034,61:fori=1to40:sys5639 
3:next:return 

920 data 1747,7,2,1748,18,2 

930 data 1749,29,2-, 1750,7,1 1 

940 data 1751,18,11 

950 ifx$="brk"thenreturn 

960 restöre920:forz=lto5:reada 

970 readx:ready:a-peek(a) 

980 char,x+1,y+1,:s=a:n=128 
990 fori=1to8:a$= H 0" 

1000 ifs>=nthens=s-n:a$=" 1 " 

1010 char,x+i,y+ 1 ,a$:n=n/ 2 :next 
1020 char,x+7,y+3,right$( hex$( a),2 


I 


<mp> 

<eh> 
<jo> 
< 11 > 
<kk> 
<mn> 
<ea> 
<of > 

<op> 

<ml> 

<fi> 

<mc> 

<mk> 

<ig> 

<ji> 

<id> 

<le> 

<fj> 

<hk> 
<an> 
< ja> 


< ga > 

<ob> 

<mg> 

<io> 

<kh> 

<oi> 

<hp> 

<Pg> 

<jc> 

<gj> 

<ie> 

<pe> 

<ad> 

<pc> 

<lb> 

<ch> 
<dl> 
<hk> 
<gh> 
<f j> 

<bd> 
<nf > 
<mb> 
<ma> 
<nd> 
<bl> 
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CPU-TRAINER 



— 2 ? 



) <ep> 

103» char,x+6,y+5,r.ight$( " "+str$( 
a),3) <dl> 

1040 nextz:return <mb> 

1050 x=-1:fori=1tom:reada$:reada:i 
fa$-y$theni=50 <em> 

1060 nextireturn <en> 

1070 char,0,19,"fehlem":poke239,0: 
wait239,1:return <ja> 

1080 rem-<fh> 

1090 rem ein-byte-befehle <bm> 

1100 rem- <om> 

1110 data asl,10,brk,0,clc,24 <ab> 

1120 data cid,216,cli,88,clv,184 <kg> 
1130 data dex,202,dey,136,inx,232 <lf> 
1140 data iny,200,lsr,74,nop,234 <nn> 
1150 data rnl,42,ror,106,sec,56 <if> 
1160 data sed,248,sei,120,tax,170 <pg> 
1170 data tay, 168, t.xa , 138, tya , 152 <cg> 
1180 iflen(x$)>4then1340 <pg> 

1190 y$=x$:restöre 1110:m=21:gosubl 
050 <gc> 

1200 ifi=51thenpoke1644,a:poke1645 
,234:poke1646,234:sys 1630:goto9S0 <mh> 

1210 rem- < Pj > 

1220 rem sonderbehandlung <mg> 

1230 rem-<ib> 

1240 m=6:gosub1050:ifi<>51then1070 <dh> 
1250 sysa:goto950 <ei> 

1260 data pha,1664,pla,1677,php,17 
02,plp,1708,tsx,1721,txs,1740 <kb> 

1270 rem-<le> 

1280 rem zwei-byte-befehle <lk> 

1290 rem- <ii> 

1300 data ade,105,and,41,cmp,201 <go> 
1310 data cpx,224,cpy,192,eor,73 <lp> 
1320 data lda,169,ldx,162,ldy,160 <kc> 
1330 data ora,9,sbc,233 <gf> 

1340 ifleft$(right$(x$,4),2)<>"#$" 
then1S10 <on> 

1350 restore1300:y$ i -left$( x$,3) <ig> 

1360 m=11:gosubl050:ifi<>51then107 
0 <mc> 

1370 x=dec(right$(x$,2)) <jg> 

1380 poke1644,a:poke1646,234 <bk> 

1390 poke1645,x:sys1630:goto950 <ah> 

1400 rem-<ea> 

1410 rem drei-byte-befeh]e <gp> 

1420 rem-< je > 

1430 data ade,109,and,45,asl,14 <eh> 
1440 data bit,44,emp,205,dec,206 <nc> 
1450 data eor,77,inc,238,jsr,32 <fh> 
1460 data lda,173,ldx,174,ldy,172 <he> 
1470 data lsr,78,ora,13,rol,45 <in> 
1480 data ror,110,sbc,237,sta,141 <hg> 
1490 data stx,142,sty,140,cpx,224 <11> 

1500 data cpy,192 <em> 

1510 ifleft$( right$( x$,5),1)<>"$"t 


hen1070 <ba> 

1520 restore1430:y$=left$(x$,3) <if> 

1530 m=22:gosub1050:ifi<>51then107 
0 < cg> 

1540 y$=right$(x$,4) <oh> 

1550 poke1646,dec(left$(y$,2)) <fn> 

1560 poke1645,dec(right$(y$,2)) <in> 

1570 poke1644,a <gn> 

1580 sys 1630:goto950 <gi> 

1590 rem ========================= < m i> 

1600 rem 12277 bytes memory <ph> 

1610 rem 04414 bytes program <ch> 

1620 rem 00105 bytes variables <cg> 

1630 rem 00080 bytes arrays <fb> 

1640 rem 00451 bytes strings <ih> 

1650 rem 03087 bytes free (0) <mh> 

1660 rem 04096 bytes reserviert. <nn> 


DATAWANOI FR 
1 rem datawandler===- Ä -==- K ===== Ä =c 16 <pa> 


2 rem (p) commodore weit team <lm> 

3 rem ============================ <cd> 

4 rem (c) by alfons mittelmeyer <ce> 

5 rem <jj> 

6 rem <jl> 

7 rem basic v3.5 <ni> 

8 rem c16/116/plus4 <jk> 

9 rem ============================ <nd> 

10 input"zeilennummer";zn <cg> 

11 input "anfang,ende";x$,y$ <pf> 

12 x=dec(x$):y^dec(y$) <mf> 

13 x$-str$(x):y$=str$(y) <hc> 

14 x$-right$(x$,len(x$)-1) <ca> 

15 y$=right$(y$,len(y$)-1) <ng> 

16 gosub29:print" fori="x$"to"y$:z 

n=zn+10 <jc> 

17 gosub29:print" reada:pnkei,a:ne 

xt" <ac> 

18 zn=zn+10 1 <bf> 

19 l=int((y-x+1}/6J+1:k=(y-x+1)-(1 

-1)*6 <dm> 

20 ifk=0thenl“l-1:k-6 <hh> 

21 forj=1toi:n-6:ifj=lthenn=k <ip> 

22 gosub29:print" data "; <lh> 

23 for i-0 to n-1:a=peek(x+i) <kj> 

24 a$-str$(a):a$~right$(a$,len(a$) 

-1) <ef> 

25 a$=right$("00"+a$,3) <cc> 

26 print a$" , " ; : next: pri ritchr$( 20) <li> 

27 x=x+6:zn®zn+10:next <ec> 

28 end <li> 

29 printright$(str$(zn),len(str$(z 

n))-1) ; <mi> 

30 return <mk> 

31 rem =========================== <kh> 

32 rem programmende <mb> 

33 rem =========================== <md> 
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LISTINGS1 



SEQ-FILES 

Lesen von 
ASCII-Texten 

Nicht immer ist eine Textverarbeitung zur Hand, 
mit der auf Diskette oder Kassette vorliegende 

Text-Files gelesen werden können. Das Programm 
SEQ-FILES sorgt für Abhilfe. 

Nicht nur Programme können auf Diskette gespeichert 
werden, sondern auch Nachrichten in Form von se¬ 
quentiellen Files. Oft besteht die Schwierigkeit, daß 
derjenige, der eine solche Nachricht erhält, vielleicht 
nicht die Textverarbeitung benützt, die der Verfasser 
des Textes verwandt hatte. Die Folge kann sein, daß 
er die Nachricht nicht lesen kann. 

Ein Standard für Textdateien ist die sequentielle 
ASClI-Datei. Bereits durch Öffnen einer sequentiellen 
Datei und entsprechende PRINT#-Befehle kann Text 
abgespeichert werden. Mit einigen Textverarbeitun- 
gen wie zum Beispiel Script-Plus läßt sich dieser Text 
einiesen. Die integrierte Software des Plus4 braucht 
aber nicht die ASCII-, sondern die Bildschirm-Codes. 
Manch andere Textverarbeitung mag wohl auch mit 
einem speziellen Datenformat arbeiten. Eine sequen¬ 
tielle ASCII-Text-Datei sollte aber von jedermann zu 
lesen sein. 

Das Programm SEQ-Files funktioniert sowohl für Kas¬ 
sette als auch für Diskette. Bei der Kassette kann die 
Frage nach dem File-Namen mit Return beantwortet 
werden, während die Diskette den File-Namen braucht. 
Der Text wird in einer Schleife eingelesen und auf den 
Bildschirm geschrieben. Eine Zeitschleife bremst die 
Geschwindigkeit, so daß mitgelesen werden kann. 
Durch Druck der Leertaste kann das Programm jeder¬ 
zeit angehalten und wieder gestartet werden, wenn 
ein längeres Betrachten erwünscht ist. Die Kassetten¬ 
benutzer müssen in Kauf nehmen, daß der Bildschirm 
sich nach der Ausgabe von jeweils 192 Zeichen ab¬ 
schaltet. damit die Datasette den nächsten Block 
nachladen kann. Von Kassette lädt der Rechner näm¬ 
lich einen Block von 192 Zeichen in den Kassetten¬ 
puffer. Der Bildschirm wird nach einem solchen Lade¬ 
vorgang wieder eingeschaltet. Die folgenden GET#- 
oder INPUT—Befehle greifen auf den Kassettenpuf¬ 
fer zu, bis alle Zeichen darin gelesen sind. Dann er¬ 
folgt ein neuer Ladevorgang. Ist der Text restlos gele¬ 
sen, was sich an der Statusvariablen ST erkennen 
läßt, wird das Programm beendet. □ 

SEQFILES READ 

10 rem seqfiles read ==========cbm <nf> 

20 rem ( p) commodore weit team <ho> 

30 rem =========================== <ng> 

40 rem ( u) by alfons mittelmeyer <cg> 

50 rem <pd> 

60 rem <ah> 

70 rem Version 2.0 40/80Z ascii <of> 

80 rem 20/64/16/116/p4/128/cbm <jb> 

90 rem =========================== <jg> 

100 printchr$(147)chr$(142)"commod 
ore weit team" <em> 

110 print: print."einiesen von" <ol> 


120 print"sequentie11en-files":pri 
nt <cj> 

130 print"1 = lesen von kassette 0 
1 " <ho> 

140 print”2 = lesen von diskette 0 
8 " <an> 

150 getx$:ifx$=""then150 <eg> 

160 onval(x$)goto200,210 <hn> 

170 goto150 ' <fe> 

180 rem ******* filename eingabe * <id> 
190 print:input"filename: ";a$:ret 
urn <me> 

200 gosub190:open8,1,0,a$:goto220 <np> 
210 gosub190:open8,8,8,a$+",s,r" <cl> 
220 printchr$(147)chr$(14); <kf> 

230 get#8,x$:printx$; <de> 

240 getx$:ifx$= M "then270 <mf> 

250 getx$:ifx$-""then250 <el> 

260 rem ***** time monitor write * <hm> 
270 fori=1to30:next <ka> 

280 ifst=0then230 <ei> 

290 printchr$(142);:close8 <mp> 

300 rem seqfiles read =========cbm <nc> 

310 rem 001014 bytes program <ld> 

320 rem 000021 bytes variables <oc> 
330 rem 000020 bytes strings <cb> 

340 rem ========================== <ac> 



DAS BESTE AUS CW 

Sammelband Nr. 1/88 
DM 14,80-ÖS 124-SFR 14,80 


100 PRINT"-“ 

110 PRINT"THE BEST OF COMMODORE-WELT" 

126 PRINT"- ” 

130 LORD -LISTING 1" : RUN 
140 LOAD "LISTING 2" : RUN 
150 LOAD "LISTING 3" : RUN 
160 LOAD "LISTING 4 ”- : RUN 

170 REM "-” 

180 REM "IF YOU HILL LOAD AND RUN. " 
190 REM "YOU HILL HAVE A LOT OF FUN" 
200 REM "-- 


Noch wenige 
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■ LISTINGS 


MALPROGRAMM 

Grafische 
Benutzer¬ 
oberfläche mit 
Joystickzeiger 

Das Malprogramm Paint System, das im 
HIRES-Modus arbeitet, erleichtert das Arbeiten durch 
eine GEM-ähnliche Benutzeroberfläche. 

Paint System bietet zahlreiche wichtige Funktionen 
zum Erstellen von Bildern und Zeichnungen. 

Mit dem Joystick in Port eins (Port null am Plus4) 
wird die Funktion angewählt, die in einer Menüleiste 
angezeigt wird. Die Anwahl geschieht durch Drücken 
des Feuerknopfes. Zur Kontrolle erscheint die gewähl¬ 
te Funktion in einem Kontrollfeld, das durch M: ge¬ 
kennzeichnet ist. Der Zeiger erscheint im Arbeitsfeld. 
Am unteren Rand werden X- und Y-Position des Zei¬ 
gers angezeigt. Durch einfaches Drücken der ESC-Ta- 
ste kann die gewählte Funktion wieder verlassen wer¬ 
den, wonach der Pfeilzeiger wiederum in der Menü¬ 
leiste zur Funktionswahl bereitsteht. 


ERKLÄRUNGEN DER FUNKTIONEN (von oben 
links): 


Nr. 1: PENCIL (1. oben links) 

Dies ist ein ganz normaler Stift. Nach der Ak¬ 
tivierung durch nochmaliges Drücken auf den 
Feuerknopf kann wie mit einem Stift gezeich¬ 
net werden. Durch nochmaliges Drücken ist 
die Funktion wieder ausgeschaltet. 

Nr. 2: DEL PENCIL (1. unten links) 

Wie Nr. 1. Nur, daß dieser Stift löscht. 

Nr. 3: BOX (2. oben, links) 

Rechteck. Es werden zwei Punkte zur Zeich¬ 
nung eines Rechteckes benötigt. Der erste gibt 
die rechte obere Ecke an, der zweite die linke 
untere Ecke. Beide werden durch Drücken des 
Feuerknopfes angegeben. 

Nr. 4: BLOCK (2. unten links) 

Wie Nr. 3. Nur wird das Rechteck ausgefüllt. 

Nr. 5: DEL BLOCK (3. oben links) 

Wieder werden rechte obere und linke untere 
Ecke angegeben. Dann wird dieser Teil ge¬ 
löscht. 

Nr. 6: CIRCLE (3. unten links) 

Zuerst muß der Mittelpunkt angegeben wer¬ 
den, dann durch einen erneuten Druck auf den 
Feuerknopf der Radius. 

Nr. 7:DISC (4. oben links) 

Wie Nr. 6. Nur wird der Kreis gleich ausgefüllt. 

Nr. 8: FIEL (4. unten links) 

Durch Drücken des Feuerknopfes wird von der 
momentanen Position an ausgefüllt. 

Nr. 9: SPRAY (5. oben links) 

Nach der Aktivierung aieser Funktion stehen 
vier verschiedene SPRAY-Stärken zur Verfü¬ 
gung, die durch Drücken der Tasten eins bis 
vier angewählt und aktiviert werden. 


Nr. 10: RAYS (5. unten links) 

Es wird durch Drücken des Feuerknopfes ein 
Mittelpunkt festgelegt. Von nun an wird nach je¬ 
dem weiteren Drücken an beliebiger Stelle vom 
Mittelpunkt bis zur momentanen Position eine 
Linie gezogen. 

Nr. 11: LINE (6. oben links) 

Anfangspunkt und Endpunkt müssen angege¬ 
ben werden. Dann wird eine Linie gezogen. 

Nr. 12: LINES (6. unten links) 

Ein Anfangspunkt wird festgelegt. Von nun an 
wird nach jedem Druck auf den Feuerknopf 
vom letzten bis zum aktuellen eine Linie ge¬ 
zogen. 

Nr. 13: COPY (7. oben links) 

Kopieren eines Bildschirmausschnittes. (Para¬ 
meter ähnlich dem Rechteck). 

Obere linke Ecke des Ausschnittes bestimmen, 
dann untere rechte Ecke festlegen. 

Jetzt mit dem Pfeil an eine beliebige Stelle ge¬ 
hen und den Feuerknopf drücken (obere linke 
Ecke). 

Hier wird der Bildschirmausschnitt hinkopiert. 

Nr. 14: LOAD (7. unten links) 

Einladen einer Grafik. 

Nr. 15: SAVE (8. oben links) 

Abspeichern einer Grafik. 

Nr. 16: DIRECTORY (8. unten links) 

Zeigen des Disketteninhalts. 

Nr. 17: SEND DISK COMMAND (9. oben links) 

Senden eines Diskettenbefehls. Command wie 
im OPEN-Befehl. 

Nr. 18: CLEAR (9. unten links) 

Löschen einer Grafik. 

Nr. 19: RESET (10. oben links) 

Nach einer Sicherheitsabfrage wird ein RESET 
durchgeführt. 

Nr. 20: TEXT (10. unten links) 

Nach Anwählen dieses Punktes und nochmali¬ 
gem Drücken erscheint ein Cursor auf dem 
Grafikbildschirm. Mit ihm kann die Grafik 
ideal beschriftet werden. Grafikzeichen und 
reverse Schrift sind ebenfalls möglich. Mit den 
Cursor-Tasten kann der Cursor gesteuert wer¬ 
den. Mit der DEL-Taste wird das links stehen¬ 
de Zeichen gelöscht. Nach Drücken der HOME- 
Taste wird der Cursor an die linke obere Ecke 
gesetzt. Nach Drücken der RETURN-Taste be¬ 
findet man sich wieder im normalen Zeichen¬ 
modus. 


VERWENDUNG DER BILDER 
IN EIGENEN PROGRAMMEN 


Möchte man ein Bild in eigenen Programmen verwen¬ 
den. geht man am besten wie folgt vor: 

Das Bild im Monitor einladen: 

L“NAME DES BILDES“,8 

Den Monitor mit X verlassen und folgende Befehlsfol¬ 
ge eingeben: 

GRAPHIC 1 :GRAPHIC 0:BOX 1,0,178,319,199,, 

1 :BOX 1,0,0,319,20„1 

Nun speichert man das Bild erneut im Monitor ab: 

S“NAME DES BILDES“,8,1800,4000 

Das Bild ist jetzt fertig zum Programm-Gebrauch. 

Sascha Haberlandt □ 
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10 rem paint system==== =: ========p4 <fe> 

20 rem ( p) commodore weit team <ho> 

30 rem =========================== <ng> 

40 rem ( c) by sascha haberlandt <bc> 
50 rem - <pd> 

60 rem <ah> 

70 rem basic v3.5 <nl> 

80 rem plus4 (c16/116 + 64 kb) <fd> 

90 rem =========================== <jg> 

100 graphicl,1:olr:gosub 3970 <ko> 


110 rem *************************** <lj> 
120 rem * rem zeilen mit abtippen* <jj> 
130 rem ***************************** <na> 
140 color0,2,5:color4,2,5:color1,1 <jn> 
150 volfl:poke65286,peek( 65206) and2 


39:gosub3870 <df> 

160 gnsub3900:printc1$:drawl,0,0to 
319,0:drawl,0,20to319,20:box 1,0, 17 
9,319,199 <ea> 

170 drawl,0,195to312,195 <ca> 

180 fori=0to90step10:box 1,i,0,i+10 
,10 <fk> 

190 box 1,i,10,i + 10,20:nexti:box 1,1 
00,0,120,10 <pd> 

200 drawl,3,2to1,1to5,4to3,7to7,7t 
o7,5 <dj> 

210 drawl,1,12to2,13:drawl,4,IStoS 
,16 <jf> 

220 drawl,7,10to9,20 <aj> 

230 hoxl,12,3,18,7 <pk> 

240 boxl,12,13,18,17,,1 <ep> 

250 drawl,22,3tn24,3:drawl,26,3to2 
7,3:drawl,27,3to27,5:drawl,27,7to2 
7,8 <ok> 

7.60 drawl , 26,8to25,8:drawl , 23,8to2 
2,8:draw1,22,6to2?,5 <ck> 

770 circlel,25,15,2 <cf> 

280 circlel,35,5,2:paint1,35,5 <nc> 

290 boxl,34,13,37,17,28,1 <ff> 

300 drawl,44,4,46,3,46,5,44,5,47,6 
,45,6,43,7,44,5 <jn> 

310 drawl,45,15to42,12:draw1,45,15 
t.o42, 18: drawl ,45,15to48,18:draw1,4 
5,15to4R,1? <k1> 

320 drawl,42,15to48,15 <ic> 

330 drawl,57,3to53,7 <hg> 

340 drawl,52,12to52,1öto56,12to58, 

18 . . <gf> 

350 boxl,62,2,65,5:boxl,64,5,67,8 <bi> 
360 drawl,63,12to63,18to68,18 <bp> 

370 drawl,78,2to74,7to73,3to74,4to 
76,4 to77,5to76,8to72,8 <fk> 

380 drawl,73,12to73,18to76,18to78, 

16to7B, 14t.o76,12to73, 12 <jc> 

390 drawl,84,2to82,2to82,5to84,5to 
84,8tn82,8:drawl,86,2to86,8toB8,6t 
088 ,4to86 ,2 <pf> 

400 drawl,87,13to86,12to84,12to83, 


14to83,16toB4,18to86,18to87,17 <el> 

410 box 1,92,2,98,8:box 1,94,4,96,6, 

,1 

420 drawl,102,8to102,2to104,4to106 
,2to106,8:drawl,108,5,108,7 <dn> 

430 drawl,92,12to98,12:drawl,95,12 
to95,18 <pc> 

440 box 1,100,10,1 10,70,,1:box 1,110 
,10,120,20,,1 <ef> 

450 rem =t itelschrif t set/ten===== : <aj> 

460 gshapeg$(1),128,2:gshapeg$(2), 
125,11,2 <cb> 

470 fori=2to18step2:drawl,122,itoi 
27,i:drawl,313,ito317,i:next:drawl 
, 319,0 t. o319,20 <ng> 

480 x-160:y=100:poke65286,peek( 652 
86)or16:goto2560 <kd> 

490 rem -show modus==-=--==-- == -- = <Tp> 
500 sshapeic$,il,u1,i1+10,u1+10:gs 
hapeic$,110,0:return <al> 

510 rem =draw ff 1 ================= <nl> 

520 i1-0:u1-0:mw-1:md$="" <kn> 

530 gosub490:poke239,0:rr=0:goto30 
80 <fd> 

540 rr-1:xx-x:yy=y:goto3080 <cl> 

550 rr=0: goto30H0 : got.o540 <fo> 

560 rem -draw ff 2============ ==i= == <pi> 

570 i1=0:u1=10:mw-2:md$="" <dd> 

580 gosub490:poke239,0:rr-0:goto30 
80 <mf> 

590 rr=7:xx=x:yy=y:goto3080 <ek> 

600 rr-0:goto3080:goto590 <bi> 

610 rem =box ff 1 ================== <cd> 

620 i1=10:u1=0:mw=3:md$="" <io> 

630 gosub490:b=0:poke239,0:goto308 
0 <ij> 

640 x(1)=x:y(1)=y:draw1,x,y <gT> 

650 b=1:goto3080 <ak> 

660 x(2)=x:y(2)=y <do> 

670 boxl ,x[ D ,y( D ,x(2) ,y(2) <cp> 

680 b-3:goto3080 <hg> 

690 rem =box ff 2================== <fa> 

700 i1=10:u1=10:mw-4:md$="" <co> 

710 b-0 : gosub490 : poke239,0 : got.o308 
0 «jO 

720 x( 1)=x:y(1)=y:draw1,x,y <hm> 

730 b-1:goto3080 <ol> 

740 x( 2) =x : y( 2) =y <l)i> 

750 boxl ,x( 1) ,y( 1) ,x(2) ,yC2) , , 1 <bd> 

760 b-3:goto3080 <jh> 

770 rem =box ff 0 ================== <hg> 

780 i1=20:u1=0:mw-5:md$=”" <fl> 

790 b=0:gosub490:poke239,0:goto308 
0 <en> 

800 x(1)=x:y(1)^y:draw1,x,y <id> 

810 b=1:goto3080 <mi> 

820 x( 2)=x:y(2)=y <ec> 

830 box0,x( 1),y(1),x(2),y(2),, 1 <he> 
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840 b=3:goto3080 <df> 

850 rem =circle== i ‘ 1 ====== i ========== <kf> 

860 i1=20:u1=10:mw-6:md$="" <hi> 

870 b=0:gosub490:poke239,0:goto30B 
0 <jl> 

880 x( 1)=x:y(1}=y:draw1,x,y <io> 

890 b r 1:goto3080 - <cl> 

900 x(2)=x:y(2)=y <1X> 

910 if x( 2) > = x( 1) thenx(2)=x(2)-x( 1) 

:elsex(2)=x(1)-x(2) <gb> 

920 if y( 2)>=y(1)theny(2)=y(2)-y(1) 
:elsey(2)=y(1)-y(2) <jj> 

930 circle 1,x(1),y(1), x( 2), y(2):dr 
aw0,x(1),y(1) <ck> 

940 b=3:goto3080 <ei> 

950 rem =rays===================== <mg> 

960 i1=40:u1=10:mw=7:md$="" <hh> 

970 b=0:gosub490:poke239,0:goto308 
0 <df > 

980 x(1)=x:y(1)=y:drawl,x,y <mp> 

990 b=1:goto30B0 <if> 

1000 x(2)=x:y(2)=y <dl> 

1010 drawl,x(1),y(1)tox(2),y(2):go 
to990 <aa> 

1020 rem =line==================== <mf> 

1030 i1=50:u1=0:mw=8:md$="" <bn> 

1040 b=0:gosub490:poke239,0:goto30 
80 <ig> 

1050 b = 1:x(1)-x:y(1)=y:drawl,x,y:g 
oto3080 <li> 

1060 x( 2)=x:y(2)=y <op> 

1070 b = 3: drawl ,x( 1) ,y( 1)tox(2) ,y(2 
):goto3080 <le> 

1080 rem =lines================-== <ia> 

1090 i 1 =50:u 1 = 10:mw-~9:md$= "" <el> 

1100 b=0:gosub490:poke239,0:goto30 
80 <ch> 

1110 x( 1)=x:y(1)=yrdrawl,x,y <bk> 

1120 b=1:gato3080 <ia> 

1130 x(2)=x:y(2)=y <gm> 

1140 drawl, x(1),y(1)tox(2), y( 2):x( 
1)=x(2) :y( 1)=y(2) :goto1120 <bb> 

1150 rein =spray=================== <io> 

1160 i1=40:u1=0:mw=10:md$="spray"+ 
b2$ <jj> 

1170 b=0:gosub490:poke239,0:goto30 
80 <nh> 

1180 xx-x:yy=y:drawl,x,y <gn> 

1190 onsjgoto3580,3620,3690,3760 <ob> 

1200 h=1:goto3000 <jl> 

1210 rem =paint=================== <aj> 

1220 i1=30:u1=10:mw=11:md$="" <hj> 

1230 b=0:gosub490:poke239,0:goto30 
80 <fi> 

1240 paint1,x,y < jg > 

1250 b=1:goto3080 <hp> 

1260 rem =text==================== <mp> 

1270 il=90:u1=10:mw=12:md$="" <gi> 


1280 b=0:gosub490:poke239,0:goto30 
80 <mo> 

1290 poke239,0:cc=0 <pd> 

1300 sshapeap$, int( x/8) *8., int( y/8) 

-8,(intC x/8)*B)+8,(int(y/8)*n)+8 <aa> 

1310 getw$ : char 1, int( x/8) , int.( y/8) 

," ", 1:ifw$=chr$t13)then1500 <gh> 

1320 ifw$=""tben1310:eiseifw$=chr$ 

( 20)thengshapeap$,int( x/8)*8,int(y 
/8)- 8:x = x-8:goto 1470 <hh> 

1330 ifw$=c3$thengshapeap$,int(x/8 
)*8,int(y/8)*8:x = x+8:goto 1410 <am> 

1340 ifw$=c1$thengshapeap$,int(x/8 
)»8,int(y/8)*8:x=x-8:goto1410 <lk> 

1350 ifw$=c4$thengshapeap$,int(x/8 
)*8,int(y/8):y=y+8:goto 1410 <bg> 

1360 ifw$=c2$tbengshapeap$,int(x/8 
)*8,int(y/8)*8:y=y-8:goto 1410 <fn> 

1370 ifw$=he$thengshapeap$,int(x/8 
)*8,irit(y/8)*8:x = 0: y=25: goto 1410 <ml> 

1380 ifw$=clir$( 18) thenw$="" :f r=1 :g 
oto1410 <hf> 

1390 ifw$=chr$(146)thenw$="":fr=0: 
goto1310 <cp> 

1400 char1,int(x/8),int(y/8),w$,fr 
:x=x+8:y=y:cc=cc+l <ai> 

1410 ifint(x/B)>39thenx=0:y=y+8 <mh> 

1420 ifintfy/8)<3theny=168 <ed> 

1430 ifint(y/8)>21theny=24 <eg> 

1440 ifint(x/8)<0thenx=312 <ic> 

1450 goto1300 <gn> 

1460 goto1300 <ko> 

1470 rem =del===================== <pj> 

1480 ifint(x/8)<0thenx=312 <fg> 

1490 char1,int(x/8),int(y/8)," ":g 
oto1300 <cl> 

1500 gshapeap$,int(x/8)*8,int(y/B) 

*8:poke239,0:j=0:goto30B0 <ae> 

1510 goto3080 <pm> 

1520 rem = 1038 ===================- <nh> 

1530 poke239,0:char1,1,23,"enter f 
ilename:"+h$+b$+b3$ <kf> 

1540 sw$="load":nl$="":zw=0:r=16:c 
harl,r,23,ze$ <fn> 

1550 poke239,0 <cb> 

1560 getkeyw$:zw=zw+1 <pl> 

1570 w=asc(w$) <jm> 

1580 ifw$=chr$(20)andzw>0tbenifr>1 
6thenr=r- 1 : zw=zw-2 : nl$=lef t:$( nl$, z 
w):w$="":goto1760 <aj> 

1590 if w$=chr$(. 13) thenchar 1 , r, 23, b 
2$:goto1660 <db> 

1600 ifw$=chr$(20)andzw=0then1550 <ok> 

1610 ifw$=chr$(32)then1630 <je> 

1620 ifw<35orw>129thenifw<149orw>1 
91then1550 <ae> 

1630 r=r+1:ifr=36thenr=35 <od> 


1640 char1,r-1,23,w$:charl,r,23,ze 
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$+" " <fb> 

1650 nl$=n]$4w$;goto1550 <fc> 

1660 nl$-left$(nl$, 16) :gosub3950 <eb> 

1670 open 15,8, 15, "r: "+nl$+"="+nl $ : 
in put# 15, «i, d$ : cl ose 15 <bg> 

1680 ifd<>f*3thenchar 1,1 ,23, "file n 
oL found"+b$+b$+b4$ <np> 

1690 pnke1319,19:fori =1to4:poke131 
9+i,13:nexti:poke239,5 <gn> 

1700 oolorl,2,5:graphic0:printhe$h 
e$cl$"m0"left$(qd$,5) <ie> 

1710 print"1"+chr$( 34)+nl$+chr$(34 
) +", 8 <od> 

1720 printc4$c4$"x" <di> 

1730 printc4$"gR1rcolorl,1:goto320 
0" <lk> 

1740 end <cf> 

1750 rem =del= Ä =========== ss ======= <dd> 

1760 charl,r,23,ze$+" H :gotol560 <lk> 

1770 rem =save= : ===== =: = r ========-== = <fa> 

1780 poke239,0:chdr1,1,23,"enter f 
ilename:"+b$+b$+b3$ <do> 

1790 sw$="save":nl$="":zw=0:r=16:c 
harl,r,23,ze$:poke239,0 <hk> 

1800 get.keyw$ : zw=zw+1 <co> 

1810 w=asc(w$) <ce> 

1820 ifw$=chr$(20)andzw>0thenifr>1 
6thenr-r- 1:zw=zw-2:nl$=left$(nl$,z 
w):w$="":goto2000 <jc> 

1830 ifw$=chr$(13)thenchar1,r,23," 

goto1900 <oc> 

1840 ifw$=chr$(20)andzw^0then1800 <ml> 

1850 i.fw$=chr$(32)then1870 <gl> 

1860 ifw<35orw>129thenifw<149orw>1 
91then1800 <oh> 

1870 i-r+1:ifr=36thenr-35 <hb> 

1880 charl,r-1,23,w$:charl,r,23,ze 
$+" " <pb> 

1890 nl$-nl$+w$:goto1800 <gh> 

1900 nl$=left$(nl$,16):gosub3950 <lm> 

1910 open 15,8,15, "r:"+nl$+"="+nl$: 
input#15,d,fm$:close15 <ne> 

1920 ifd<>62ord=63thenchar1,1,23," 
file not found"+b$+b$+b4$ <ep> 

1930 poke1319,19:fori=1to4:poke131 
9+i., 13: nexti : poke239,5 <kh> 

1940 colorl,2,5;graphic0:printhe$h 
e$cl$"m0"left$(qd$,5) <pa> 

1950 print"s"+chr$(34)+nl$+chr$( 34 
)+",8,1800,4000"c4$;c4$ " <ag> 

1960 print"x" <bo> 

1970 printc4$"gR1:coL1,1:goto3200" <pa> 
1980 end <ah> 

1990 rem =del===================== <fm> 

2000 charl,r,23,ze$+" ":goto1820 <gn> 
2010 rem =clear=*=== =r == := == : ==== : ==== <pl> 

2020 md$="":char1,1,23,"clear pict 
ure : are you sure"+b2$+"y/rt"+b5$ <cm> 


2030 poke239,0:getkeyw$ <ge> 

2040 ifw$="n"thenchar1,1,23,b$+b3$ 

:goto2560 <nl> 

2050 ifw$--"y "thengraphic 1 , 1 : run <jn> 

2060 goto 2030 <ad> 

2070 rem =directory=============== <og> 

2080 md$~""rcharl,1,23,"directory 
: insert a disk in drive 0 M +b2$ < pj > 

2090 poke239,0;do:getw$:Joopuntilw 
$-chr$(32)orjoy(1)=128 <ck> 

2100 printcl$:graphic0:directory:p 
rintrn$"press space bar or button” 
rf$ <pc> 

2110 poke239,0:do:getw$:loopuntilw 
$=" "orjoy(1)=128:graphic1:goto299 

15 <mp> 

2120 rem =circie 2========= ==;= -“ = <im> 

2130 i1=30:u1=0:mw=20:md$="" <kd> 

2140 b=0:gosub490:poke239,0:goto30 
80 <ke> 

2150 x(1)=x:y(1)=y:draw1,x,y <no> 

2160 b=1:goto3080 <bj> 

2170 x(2)=x:y(2)=y <jn> 

2180 if x[ 2) >=x( 1) thenx(2)=x(2)-x( 1 
) :elsex(2)=x[ 1)-x(2) <bc> 

2190 ify( 2)>=y(1)theny(2)-y(2)-y(1 
):elsey(2)=y(1)-y(2) <eo> 

2200 circle 1,x(1),y(1),x(2),y(2):d 
raw0,x(1),y(1) <bp> 

2210 paintl,x(1),y(1) <el> 

2220 b=3:goto3080 <bl> 

2230 rem =send disk command======= <gn> 

2240 i1=80:u1=0:gosub490 <mj> 

2250 poke239,0:char1,1,23,"send to 
disk :"+b$+b$+b4$ <fi> 

2260 sd$="":zw=0:r=15:charl,r,23,z 
e$:poke239,0 <gj> 

2270 getkeyw$:zw=zw+1 < hg > 

2280 w=asc(w$) <la> 

2290 ifw$=chr$(20)thenifr>15andzw> 
0 thenr=r-1:zw=zw-2:sd$=left$(sd$,z 
w):w$=”":goto2410 <cf> 

2300 ifw$=chr$(13)thencharl,r,23,b 
2$:goto2370 <dn> 

2310 ifw$=chr$(20)andzw=0then2270 <ik> 
2320 ifw$=chr$(32)then2340 <hh> 

2330 ifw<35orw>129thenifw<149orw>1 
91then2270 <bm> 

2340 r=r+1:ifr=36thenr=r-1:zw=zw-1 
:goto2270 <nf> 

2350 charl, i— 1,23,w$:char1,r,23,ze 
$+" " <db> 

2360 sd$=sd$+w$:goto2270 <je> 

2370 ifleft$(sd$,4)=”read"then2430 <fm> 
2380 char1,1,23,"sending disk comm 
and"+b$+b5$+b2$:sys65511 <bd> 

2390 open 15,8,15,sd$:close 15:char1 
,1,23,b$+b$+b$+b4$+b3$ <dm> 
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2400 goto2580 <li> 

2410 rem =de]===================== <jd> 

2420 charl,r,23,ze$+" ":goto2270 <di> 

2430 open 15,8, 15:input#15,f,f$:clo 
se15:charl,1,23,"status:"+b$+b$+b5 
$4h4$ <ph> 

2440 charl,8,23,f$ - <no> 

2450 do:getw$:loopunti]w$=" "orjoy 
(1)>127:goto2580 <be> 

2460 rem =copy sss = SB ==== i ==== 3sa!a! ===== =s <ki> 

2470 i 1 ~60: u 1 -0: mw- 19:md$="" <ab> 

2480 5=0:gosub490:poke239,0:goto30 
80 <lf> 

2490 x(1)=x:y(1)=y <di> 

2500 b^1:goto3080 <in> 

2510 x(2)=x:y(2)=y <dg> 

2520 sshapesh$,x(1),y(1),x( 2),y(2) <me> 
2530 h=3:goto3080 <pb> 

2540 gshapesh$,x,y <nd> 

2550 b=4:goto3080 < oj> 

2560 rem =nien«esteuerung=====-=== i = <cb> 

2570 xm ; =60:ym=16 <bb> 

2580 sshapeoh$,xm,ym,xm+5,ym+5:gsh 
apepf$,xm,ym,2 <ng> 

2590 charl,1,23,"x = "+str$(x)4b2$ 
'.charl , 1 1,23, "y = "4 S tr$( y) 4h$4b4$ 

453$ <cl> 

2600 j = joy( 1) : if j=^0theng :i 2 : goto260 
0 <fk> 

2610 gshapeoh$,xm,ym <fe> 

2620 if j= 128then2750 <ab> 

2630 ifj^5thenym=ym+g <gf> 

2640 ifj=1thenym=ym-g <lm> 

2650 ifj=7thenxm=xm-g <oo> 

2660 ifj^Sthenxm^xm+g <lb> 

2670 ifj=2thenym=ym-g:xm=xm+g <cd> 

2680 ifj=4thenym^ym+g:xm=xm+g <ja> 

2690 ifj=6thenym=ym+g:xm=xm-g <dk> 

2700 ifj=8thenym=ym-g:xm=xm-g <gn> 

2710 if xm>100thenxm=100:el seif xm<0 
thenxm=0 <ah> 

2720 ifym>20thenym=20:elseifym<0th 
enym=0 <kb> 

2730 sshapeoh$,xm,ym,xm+5,ym45:gsh 
apepf$,xm,ym,2:g=g+2 <ga> 

2740 gcito2600 <fl> 

2750 rem Berechnung der position= <ko> 
2760 ifxm>S0then2870 <of> 

2770 ifxm>0andxm<10thenifym>0andym 
<10then510 <jf> 

2780 ifxm>0andxm<10thenifym>1 Bandy 
m<20then560 <aa> 

2790 ifxm>10andxm<20thenifym>0andy 
m<10then610 <mh> 

2800 ifxin> 10andxm<20thenifym> 10and 
ym<20then690 <mn> 

2810 ifxm>20andxm<30thenifym>0andy 
m< 10then770 <jj> 


2820 ifxm>20andxm<30thenifym>10and 
ym<20then850 <ag> 

2830 lfxin>30andxin<40t henif ym>0andy 
m<10then2120 <jg> 

2840 ifxm>30andxm<40thenifym>10and 
ym<20then1210 <jb> 

2850 ifxm>40andxm<50thenifym>0andy 
m<10then1150 <og> 

2860 j fxm>40andxm<50thenifym>10and 
ym<20then950 < Pj > 

2870 ifxm>50andxm<60thenifym>0andy 
m<10then1020 <in> 

2880 ifxm>50anrixm<60thenifym>10and 
ym<20then1080 <nm> 

2890 ifxm>60andxm<70thenifym>0andy 
m<10then2460 <ab> 

2900 if xm>60andxm<70thenif yin> 10and 
ym<20then1520 <of> 

2910 ifxm>70andxm<80thenifym>0andy 
m<10then1770 <ne> 

2920 ifxm>70andxm<80thenifym>10and 
ym<20then2070 <bi> 

2930 ifxm>80andxm<90thenifym>0andy 
m<10then2230 <dg> 

2940 i f xm>80andxm<90t.henif ym> 10and 
ym<20t.hen2010 <og> 

2950 ifxm>90andxm<100thenifym>0and 
ym<10then3020 • <bk> 

2960 ifxm>90andxm<100thenifym>10an 
dym<20then1260 <dk> 

2970 goto2580 <fc> 

2980 rem =set f reespaces==-====“= <mj> 

2990 charl,1,23,b$+b$+b$+b4$+54$ <fc> 
3000 charl,1,23,"x - "+str$(x)+b2$ 
rcharl,11,23,"y = "+str$(y)+b$+55$ <ie> 
3010 goto2580 <ef> 

3020 rem =reset================= ;: =- <ol> 

3030 charl,1,23,"reset : are you s 
ure y/n"+h$+b3$ <mo> 

3040 poke239,0 <oh> 

3050 getkeyw$ : ifw$="y"thengraphic1 
,1:printcl$:graphic0:sys65S29:eise 
ifw$<>"n"then3050 <ch> 

3060 charl,1,23,b$+b$+h$+b4$+b3$:g 
oto2580 <nd> 

3070 rem -pfeilsteuerung== i:: ==- ; ==== <ce> 

3080 sshapead$,x,y,x+5,y+5:g-1 <pl> 

3090 gshapepf$,x,y,2 <pc> 

3100 j^joy(1):p=peek(198):ifj=0and 
p=64theng-1:goto3100 <ck> 

3110 gshapead$,x,y <ck> 

3120 ifp=52then2580 <cd> 

3130 ifj=128thenifmd$<>"spray"+52$ 
t.hensound3,400,5: sound 1,410,5: goto 
3380 <kp> 

3140 ifp<>64andmd$="spray"+b2$then 
3540 <fi> 

3150 ifj=5theny=y+g:goto3240 <pf> 
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3160 ifj=1theny=y-g:goto3240 <ik> 
3170 ifj=7thenx=x-g;goto3240 <gf> 
3180 ifj=3thenx=x+g:goto3240 <ed> 
3190 ifj=2theny=y-g:x=x+g:goto3240 <ci> 
3200 if j=4theny=y+g: x = x+g : got.o3240 <ab> 
3210 if j=6theny : =y+g : x^x-g: goto3240 <aa> 
3220 ifj=8theny=y-g:x=x-g:goto3240 <bg> 


3230 g=1:goto3080 <mi> 

3240 ifpeekf198)=52then2580 <ln> 

3250 ifx<0thenx=319 <cf> 

3260 ifx>319thenx=0 <bl> 

3270 ify<21theny=178 <kk> 

3280 ify>178theny=21 <oc> 

3290 ifrr=1thendraw1,xx,yytox,y:xx 
=x:yy=y <jl> 

3300 ifrr=2t hendraw0,xx,yytox,y:x x 
=x:yy=y <lj> 

3310 char1,1,23,"x = "+str$(x)+b2$ 
:char1,11,23,"y - "+str$(y)+b$+b5$ <nk> 
3320 sshapead$,x,y,x+5,y+5 <lb> 

3330 gshapepf$,x,y,2 <lg> 

3340 g=g+1:goto3090 <pk> 

3350 rem ========================= <oo> 

3360 rem unterprogrammspruenge <ai> 

3370 rem ========================= <ob> 

3380 ifmw-1 andrr=-1 then550 : elseifmw 
= 1andrr--0then540 <fi> 

3390 ifmw^2andrr=2then600:elseifmw 
-2andrr^0then590 <hc> 

3400 ifmw=3andb=0then640:elseifmw= 
3andb=1then660:elseifmw -3andb=3the 
n640 <je> 

3410 ifmw-4andb=0then720:elseifmw= 
4andb=1then740:elseifmw^4andb=3the 
n720 <lg> 

3420 ifmw=Sandh=0t.hen800: elaeifmw= 
5andb^1thenB20:elseifmw=5andb=3the 
n800 <fc> 

3430 ifmw-6andb=0then8B0:elseifmw= 
6andb=1then900:elseifmw=6andb=3the 
n880 <lj> 

3440 ifmw=7andb=0then980;elseifmw= 
7andb=1then1000 <kb> 

3450 ifmw=8andb=0then1050 relseifmw 
-Bandb-1then1060:elseifmw=8andb=3t 
hen1050 <kn> 

3460 ifmw=9andb=0then1110:elseifmw 
=9andb-1then1130 <ej> 

3470 ifmw=10andb-0then11B0:elseifm 
w=10andb=1then1190 <el> 

3480 ifmw=11andb-0then1240:eiseifm 
w=11andb-1then1240 <hf> 

3490 ifmw= ^andb^Bthen1290:eiseifm 
w-1?andb~1then1290 <mc> 

3500 ifmw=19andb^-0then2490: elseifm 
w=19andb=1then2510:elseifmw=19andb 
=3t.hen?540 <eb> 

3510 :ifmw=19andb=4then2490 <ig> 


3520 ifmw^20andb=0then2150:elseifm 
w=20andb=lthen2170:eiseifmw^20andb 
=3then2150 <jk> 

3530 rem -spray part jf2=====^= : ==== <mm> 

3540 ifp=56thensj=1igotol190:elsei 
fp-59thensj-2:gotol190 <ld> 

3550 ifp=8thensj=3:gotol190:elseif 
p--=11 thensj=4:goto1190 <kl> 

3560 goto 3150 <dg> 

3570 rem =set spray============= ; == <ei> 

3580 drawl,x-3,y-2,x-1,y-1.4,x+1.4 
,y-2.3 <di> 

3590 drawl,x-2,y,x-0.5,y+.9,x+2.3, 
y+1.1 <gi> 

3600 drawl,x-2.7,y+1.7,x-.3,y+2.21 
,x+2,y+1.7 <de> 

3610 goto1200 <ho> 

3620 drawl,x- 5 ,y-4,x-3,y-3.4,x+3.4 
,y-4.2 <ha> 

3630 drawl,x- 4 ,y,x-2.5,y+2.9,x+2.3 
,y+3.1,x+4.3,y+.3,x,y <je> 

3640 draw1,x-4.7,y+3.7,x-2.3,y+4.4 
1» x+4,y+4.7 <im> 

3650 drawl,x-3,y-2,x-1,y-1.4,x+1.4 

,y- 2 .3 <gn> 

3660 drawl,x-2,y,x-0.5,y+.9,x+2.3, 
y+1.1 <gm> 

3670 drawl,x-2.7,y+1.7,x-.3,y+2.21 
,x+2,y+1.7 <oh> 

3680 goto 1200 <df> 

3690 drawl,x-7,y-6,x-5,y-5.4,x+5.4 
,y-6.2 <ca> 

3700 drawl,x-6,y,x-4.5,y+4.9,x+4.3 
,y+5.1,x+6.3,y-.9,x,y <ka> 

3710 drawl,x-6.7,y+5.7,x-4.3,y+6.4 
1,x+6,y+6.7 <em> 

3720 drawl,x-3,y-2,x-1,y-1.4,x+1.4 
,y-2.3 <ko> 

3730 drawl,x-2,y,x-0.5,y+.9,x+2.3, 
y+1.1 <bp> 

3740 drawl,x-2.7,y+1.7,x-.3,y+2.21 
,x+2,y+1.7 <hc> 

3750 goto 1200 <aj> 

3760 drawl,x-7,y-6,x-5,y-5.4,x+5.4 
,y-6.2 <nk> 

3770 drawl,x-6,y,x-4.5,y+4.9,x+4.3 
,y+5.1,x+6.3,y+.7,x,y <el> 

3780 drawl,x-6.7,y+5.7,x-4.3,y+6.4 
1,x+6,y+6.7 ' <jk> 

3790 drawl,x-5,y-4,x-3,y-3.4,x+3.4 
,y-4.2 <jn> 

3800 draw1,x-4,y,x-2.5,y+2.9,x+2.3 
,y+3.1,x+4.3,y+.3,x,y-.4 <hb> 

3810 drawl,x-4.7,y+3.7,x-2.3,y+4.4 
1,x,y+5.1,x+.5,y+5.3 <cm> 

3820 drawl,x-3,y-2,x-1,y-1.4,x+1.4 
,y-2.3 <hm> 

3830 drawl,x-2,y+1,x-0.5,y+.9,x+2. 
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3,y-1.1 <ee> 

3048 drawl,x-2.7,y+1.7,x-,3,y+3.21 
> x+1,y+1 .7 <bn> 

3850 drawl,x, y-5,x,y+2,x*5,y+3:got 
o1200 <lg> 

3860 rem =pfeil zeichnen========== <mp> 

3870 graphicl,! . <ap> 

3880 drawl,0,0to4,0to0,4to0,0:draw 
1,3,0to0,3:draw1,0,0to5,5:paint1,1 
,1 <mi> 

3890 sshapepf$,0,0,5,5:graphicl, 1 : 
graphic0:return <aa> 

3900 rem =titelbild text========== <pp> 

3910 charl,0,0,"welcome to paint s 
y st ein" <no> 

3920 charl,0,1,b2$+"by sascha habe 
rlandt"+h2$ <Ka> 

3930 sshapeg$(1),8,0,184,7:sshapeg 
$(2),0,8,1B4,16:graphicl,1:return <fg> 
3940 rem =disKettenbefehl========= <ma> 

3950 char1,1,23,sw$+" : insert a d 
isk into driwe 0"+b4$ < Pj > 

3960 poke239,0:do:getw$:loopuntilw 
$=" "orjoyC1)=128:poke6SP86,peek(6 
5286)and239:return <jd> 

3970 rem nachspann =============== <d1> 

3980 rem * farbcodes/steuercodes * <da> 
3990 c4$-chr$(017):rn$=chr$(018) <ne> 
4000 he$-chr$(019):c3$=chr$(029) <np> 
4010 c2$=chr$(145):rf$=chr$(146) <ie> 
4020 c.l$=chr$( 147) :c1$~chr$( 157) <nf> 
4030 rem *** zeichensatz/graphik * <dl> 
4040 ze$=chr$(175) <bk> 

4050 rem ********* Zeichenfolgen * <fi> 
4060 for q=1 to 40 < PP > 

4070 qd$=qd$+c4$ <li> 

4080 next q:b$=chr$(32):h2$^b$+b$ <an> 
4090 b3$=b2$+b$:b4$=b3$+b$ <ka> 

4100 b5$-b4$+b$:b$-bS$+bS$ <ho> 

4110 return <mk> 

4120 rem ========================= <gb> 

4130 rem 60671 bytes memory <bh> 

4140 rem 12777 bytes program <mp> 

4150 rem 00287 bytes variables <og> 
4160 rem 00164 bytes arrays <jk> 

4170 rem 00963 bytes strings <jf> 

4180 rem 12288 bytes graphic <hf> 

4190 rem 34192 bytes free (0) <di> 

4200 rem ========================= <bi> 


Alle Listings 
auch auf Disc 
und Cassette! 


LISTING 


FESTE AUSGABEN 



Übersicht 

Alle festen Ausgaben, die irgendwann 
einmal fällig werden, können zur besseren Übersicht 
mit dem Computer erfaßt werden. Falls ein Drucker 
vorhanden ist, bekommen Sie die Jahresübersicht 
auch schwarz auf weiß. 

Das Programm erstellt einen Überblick über regelmäßig 
anfallende Ausgaben. Damit sind Unkosten gemeint, 
die monatlich, vierteljährlich, halbjährlich oder jähr¬ 
lich fällig werden, zum Beispiel Miete, Versicherungen, 
Vereinsbeiträge. 

Das Programm ist vollständig menügesteuert. Jedes 
Untermenü erlaubt den Rücksprung in das Hauptme¬ 
nü. Der Abschluß des Programmes ist mit einer Sicher¬ 
heitsabfrage versehen. 

Das Hauptmenü unterteilt sich in die Punkte: 

1. Ausgaben auflisten 

2. Ausgaben neu eingeben 

3. Ausgaben ändern 

4. Ausgaben drucken 

5. Programmende. 

Die Punkte 1 bis 3 führen jeweils in Untermenüs, die 
grundsätzlich nach der Fälligkeit unterscheiden (mo¬ 
natlich, vierteljährlich, . . .). Die weiteren notwendi¬ 
gen Eingaben werden im Programm ausgewiesen, be¬ 
dürfen also keiner weiteren Erläuterung. 

Punkt 4 ist der interessanteste. Hier wird auf dem an¬ 
geschlossenen Drucker eine Übersicht in Form einer 
Tabelle erstellt. Diese Tabelle enthält alle festen Aus¬ 
gaben, die bis zum Ausdruck abgespeichert wurden. 

Sie bietet die Möglichkeit, auf einen Blick zu erfassen, 
in welchem Monat welche Ausgabe (Verwendungs¬ 
zweck und Summe) fällig wird. 

Die Druckerroutine von Zeile 3450 bis 3940 paßt für 
jeden Drucker, da keine spezifischen Steuerzeichen 
Verwendung fanden. Eventuell empfiehlt es sich für 
Commodore-Drucker, die OPEN-Anweisung in Zeile 
3450 so abzuändern, daß Groß- und Kleinschreibmo¬ 
dus möglich ist. Wer einen breiteren Drucker hat oder 
lim auf COMPRESSED PRINT umstellen kann, sollte 
die Tabelle etwas breiter gestalten, um größere als 
vierstellige Zahlen und auch Kommastellen zuzu¬ 
lassen. 

Die Tabelle kann nur dann richtig erstellt werden, 
wenn die Fälligkeitsmonate der einzelnen Ausgaben 
richtig eingegeben werden. Der Vergleich wird an¬ 
hand der Data am Ende des Listings durchgeführt. 
Abkürzungen sind hierbei allerdings erlaubt. So kann 
der Monat Januar mit „Jan“ abgekürzt werden. 

Damit das Programm einwandfrei arbeiten kann, ist 
es erforderlich, daß ständig die Arbeitsdiskette mit 
den abgespeicherten Dateien im Laufwerk ist. Es bie¬ 
tet sich an, Programm und Dateien auf eine Diskette 
zu nehmen. Die Dateien sind ohnehin nicht sehr um¬ 
fangreich. Henning Koglin □ 
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10 rem feste ausgaben====--p4 <gn> 

20 rem (p) commodore weit team <ho> 

30 rem -===========-=============- <ng> 

40 rem ( c) by henning Koglin <ia> 

50 rem <pd> 

60 rem basic v3.5 <od> 

70 rem plus4 (c!6/116 + 64 Kb) <cd> 

80 rem floppy + drucker <gc> 

100 gosub 4000 <eg> 

1 10 rem-<cn> 

120 rem einleitung <nk> 

130 rem-<hh> 

140 dimvw$(99),su$(99),mo$(99),mn$ 

(99) , ma$( 99) ,mt$(99) ,mm$(99) ,me$(9 
9) ,mq$(99) ,sm( 12) <"'«> 

150 scncl r :color0,4, 1 :coloi*4,4, 1 :r. 
olor1,4,5 < j«s > 

160 charl,12,0,rn$+”feste ausgaben 
"+rf$:print:print:print:print <mi> 

170 pri.nl "dieses programm erleicht 
ert. die ueher-" <pm> 

180 print"si.cht lieber laufende aus 
gaben, die zu” <cn> 

190 print"bestimmten Zeitpunkten f 
aellig werden." <ie> 

200 print:print"hei der ersten ben 
utzung des prugrammes" <jc> 

210 print"muessen zunaechst die er 
forderlichen" < jj > 

220 print"daten eingegeben werden 
»" <ah> 

230 ohar 1,9,20,"datum (tt.mm.jj) ? 

":inputdd$ <nj> 

240 rem-<ch> 

250 rem hauptmenue <ma> 

260 rem-<ob> 

270 scnclr:color0,6,1:color4,6,1:c 
olorl,6,5 < ja > 

280 charl,16,0,rn$+”menue"+rf$:cha 
r1,08,5,"1) ausgaben auflisten" <nm> 
290 color0,6,1 :col.or4,6, 1 :color!,6 
,5 <eg> 

300 charl,08,7,”2) ausgaben neu ei 
ngeben":char1,08,9,"3) ausgaben ae 
ndern" <fo> 

310 char1,08,11,”4) ausgaben druck 
en" <lk> 

320 charl,8,13,"5) programmende" <fc> 
330 charl,4,24,rn$+"bitte 1,2,3,4 
oder 5 eingeben !"+rf$ < gl > 

340 do:getd$:loopuntild$>”0"andd$< 

"6" <eo> 

350 b-val(d$):onbgoto430,1240,2240 
,3340,360 <lp> 

360 rem- < gg > 

370 rem programmende <aa> 

380 rem-<kn> 


390 color0,7,3:color4,3,3:color1,2 <ap> 
400 scnclrrcharl,08,12,rn$+"wirkli 
ch beenden "+f1$+"(j/n)"+fo$+" ?" <mo> 
410 getkeya$ <fb> 

420 ifa$~"j"thensys65529:else240 <fd> 
430 rem =======-==========-=====-- <im> 

440 rem ausgaben auflisten <am> 

450 rem ==-===-==-*==-============= <do> 

460 scnc1r:color0,3,1:color4,3,1:c 
olorl,3,5 <fp> 

470 charl,4,0,rn$+"untermenue 'aus 
gaben auf listen'" + rf$ <ak> 

480 charl,5,5,"1) monatliche ausga 
ben":char1,5,7,"2) vierteljaehrlic 
he ausgaben" <oj> 

490 char1,5,9,”3) halbjaehrliehe a 
usgaben":char1,S,11,"4) jaehr11 che 
ausgaben" <mi> 

500 charl,5,13,"5) monatsuebersich 
t" <cb> 

510 char1,5,13,"5) zurueck ins hau 
ptmenue" <bk> 

520 charl,4,24,rn$+"bitte 1,2,3,4 
odnr 5 eingeben !" <ci> 

530 do:getd$:loopuntild$>"0"andd$< 

"6" <jg> 

540 b=val(d$):onbgoto590,740,910,1 
090,550 <cb> 

550 rem-<ok> 

560 rem zurueck ins hauptmenue <df> 

570 rem-<n 1 > 

580 goto240 <aj> 

590 rem-<ag> 

600 rem monatl. auflisten <id> 

610 rem-<op> 

620 scnclr:color0,7,1:color4,7,1:c 
olorl,7,5 < jp > 

630 open2,B,2,"monatl.,s,r" <ch> 

640 input#2,x <inf> 

650 fori : ^0tox : input#2, vw$( i) : input 
#2,su$(i):next <fe> 

660 close2 <mn> 

670 char1,09,0,rn$+"monat1iche aus 
gaben:"+rf$:print:print:i=0:z=0 <a j> 

680 do:printvw$(i)tab( 30)su$( i) <km> 

690 i=i+l:z=z+1:forw-0to39:print"- 
";:next <oo> 

700 loopuntilz>8ori>x <pf> 

710 if i >xt:henchar 1; 3,24, rn$+"ende 
der liste! weiter mit taste!"+rf$: 
getkeya$:goto430 < jg > 

720 ifi<=xthenchar 1,10,24,rn$+"wei 
ter mit taste ! "+rf$ : get.keya$: z=0: s 
cnclr <jc> 

730 char1,9,0,rn$+"monatliehe ausg 
aben:"+rf$:print:print:goto680 <hk> 

740 rem-<bc> 

750 rem vierteljaehrl. auflisten <lk> 
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760 rem- < jg > 

770 scnclr:color0,09,1:color4,09, 1 
:color1,09,5 <Ko> 

780 open2,B,2,"viertelj.,s,r" <pf> 

790 input#2,x <co> 

800 fori=0tox:input#2,vw$[i},su$( i 
) ,mo$( i) ,mn$( i) ,mn$(i) ,mt$(i) <op> 

810 nexti:close2 <gk> 

820 char1,6,0,rn$+"vierteljaehrlic 
he ausgaben :"+rf$: print: print. <ia> 

830 i-0: z=0 <pk> 


840 do:printvw$(z)tab(30);rn$;su$( 
z);rf$:print"faellig im: <ee> 

850 print.mo$( z) ;" , ";mn$(z);"-, ";m 
a$(z);", ";mt$(z):i=i+1:z=z+1 <fj> 


860 forw-0to39:print"-";:next <na> 

870 loopuntili>5orz>x <oa> 

880 ifz>xthenchar1,3,24,rn$+"ende 
der liste! weiter mit taste!"+rf$: 
getkeya$:goto430 <be> 

890 ifz<-xthenchar1,10,24,rn$+"wei 
ter mit taste!"+rf$:getkeya$:i=0:s 
cnclr <ah> 

900 charl,6,0,rn$+"vierteljaehrlic 
he ausgaben:"+rf$.-print: print:goto 
840 <od> 

910 rem-<fc> 

920 rem halbjaehrl: auflisten <bg> 

930 rem- < gP > 

940 scnclr:color0,15,3:color4,15,3 
:color1,15,6 < gP > 

950 open2,8,2,"halbj.,s,r" <ip> 

960 input#2,x <nb> 

970 fori=0tox : input.#2, vw$( i) :input 
#2,su$( i):input#2,mm$(i):input#2,m 
e$(i):nexti <pk> 

980 close2 . <na> 

990 charl,8,0,rn$+"halbjaehrliche 
ausgaben:"+rf $:print:print <nn> 

1000 i=0:z-0 <bn> 

1010 do:printvw$(z)tab(30);rn$;su$ 

(z);rf$:print"faellig im: "; <ng> 

1020 printmm$(z);", ";me$[z) <nj> 

1030 forw=0to39:print"-";:nextw <nc> 

1040 i=i+l:z=z+1 <pd> 

1050 loopuntili>5orz>x <hg> 

1060 ifz>xthenchar1,3,24,rn$+"ende 
der liste! weiter mit taste!"+rf$ 

:getkeya$:goto430 <pj> 

1070 ifz<=xthenchar1,10,24,rn$+"we 
iter mit taste!"+rf$:getkeya$:i=0: 
scnclr <lo> 

1080 charl,8,0,rn$+"halbjaehrliche 
ausgaben:"+rf$:print:print:goto 10 
10 <le> 

1090 rem-<kb> 

1100 rem jaehrlich auflisten <ea> 

1110 rem-<kh> 


1120 scnclr:color0,10,1:color4,10, 

1:color1,10,5 <hl> 

1130 open2,8,2,"jaehrl.,s,r" <fb> 

1140 input#2,x <bi> 

1150 fori=0tox:input#2,vw$(i):inpu 
t#2,su$(i):input#2,mq$(i):nexti:cl 
ose2 <gh> 

1160 charl,10,0,rn$+"jaehrliche au 
sgaben:"+rf$:print:print:i=0:z=0 <pc> 

1170 do:printvw$(i)tab(30);rn$;su$ 

(i);rf$:print"faellig im ”;mq$(i) <fi> 

1180 i=i+1:z=z+1 <ec> 

1190 forw=0to39:print"-";:nextw <jm> 
1200 loopuntilz>Sori>x <kp> 

1210 i f i>xthenchar 1,3,24, rn$+"enile 
der liste! weiter mit taste!"+rf$ 
:getkeya$:goto430 <kg> 

1220 ifi<=xthenchar1,10,24,rn$+"we 
iter mit taste!"+rf$:getkeya$:z=0: 
scnclr <gg> 

1230 charl,10,0,rn$+"jaehrliche au 
sgaben:"+rf$:print:print:goto 1170 <pc> 
1240 rem ========================■= <jp> 

1250 rem ausgaben neu eingeben <bl> 
1260 rem ========^==========^====^ <gm> 

1270 scnclr:color0,8,1:color4,8,1: 
color1,8,5 <jj> 

1280 charl,3,0,rn$+"untermenue 'au 
sgaben neu eingeben' " + rf$ <ik> 

1290 charl,5,5,"1) monatliche ausg 
aben":char1,5,7,"2) vierteljaehrli 
che ausgaben" <gh> 

1300 charl ,5,9,"3) halbjaehrliehe 
ausgaben":char1,5,11,"4) jaehrlich 
e ausgaben" <fe> 

1310 charl,5,13,"5) zurueck ins ha 
uptmenue" <eh> 

1320 charl,5,24,ye$+"bitte 1,2,3,4 
oder 5 eingeben !" <pc> 

1330 do:getd$:lonpuntild$>"0"andd$ 

<"6" <cf> 

1340 b=val(d$):onbgotol350,1540,18 
00,2010,2200 <la> 

1350 rem-<ig> 

1360 rem monatlich eingeben <jd> 

1370 rem-<K I > 

1380 x=-1 <ka> 

1398 open2,8,2,"monatl.,s,r" <mo> 

1400 input#2,x < gj > 

1410 fori=0tox:input#2,vw$(i):inpu 
t#2,su$(i):nexti <ol> 

1420 close2 <lj> 

1430 scnclr:color0,1:color4,1:colo 
r1,7,5 <fj> 

1440 charl,0,0,rn$+h5$+b4$+"monat1 
iche ausgaber."+b$+rf$ <oo> 

1450 x=x+1 <pa> 

1460 char1,0,5,"hoehe der ausgabe 
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: ":inputsu$(x) <gl> 

1470 oharl,0,7,"Verwendungszweck^ 
b2$+": ":inputvw$(x) <oj> 

14B0 charl,09,24,"weiter eingeben 
(j/n) ?" <dm> 

1490 getkeya$:ifa$-"j"then1430:eis 
e1500 <en> 

1500 npen2,8,2,"8:monat1.,s,w" <dp> 

1510 print#2,x <pa> 

1520 fori=0tox:print#2,vw$(i):prin 
t#2,su$(i):nexti <fi> 

1530 close2:goto1240 <ag> 

1540 rem-<oe> 

1550 rem vierteljaehrl. eingeben <eh> 

1560 rem-<im> 

1570 x=-1 <je> 

1580 open2,8,2,"viertelj.,s,r" <pk> 

1590 input#2,x <fn> 

1600 fori=0tox:input#2,vw$(i):inpu 
t#2,su$(i) <in> 

1610 input#2,mo$( i) :input#2,mn$(i) 

: input//2,ma$( i):input#2,mt$(i) <fe> 

1620 nexti <lf> 

1630 close2 <ac> 

1640 scnclr:color0,1:color4,1:colo 
rl,3,5 <cp> 

1650 charl,0,0,rn$+b6$+" viertel ja 
ehrliche ausgaben "+b6$+rf$ <pa> 

1660 x —x+1 <ef> 

1670 charl,0,5,"hoehe der ausgabe 
: ":inputsu$(x) <il> 

1680 charl,0,7,"Verwendungszweck" + 
b2$+": ":inputvw$(x) <dd> 

1690 charl,0,9,"fael1igkeitsmonate 
:":char1,8,11,"1. monat : ":inputm 
o$( x) <al> 

1700 charl,8,12,"2. monat : ":inpu 
tmn$(x) <in> 

1710 charl,8,13,"3. monat : ":inpu 
tma$(x) <on> 

1720 charl , 8 , 14,"4. monat : ":inpu 
tmt.$( x) <ob> 

1730 charl,09,24,"weiter eingeben 

(j/n) ?" <mo> 

1740 getkeya$:ifa$="j"then1640: e 1 s 
e1750 <in> 

1750 open2,8,2,"8:viertelj.,s,w" <dm> 

1760 print#2,x <kc> 

1770 fori^0tox:print#2,vw$(i):prin 
t#2,su$(1):print#2,mo$(i):print#2, 
mn$(i) <an> 

1780 pr inl.#2,ma$( i) : print#2,mt$( i) 
:nextl <cl> 

1790 close2:goto1240 <jl> 

1800 rem-<ii> 

1810 rem halbjaehrlieh eingeben <ea> 

1820 rem-<hi> 

1830 x=-1 <oe> 


1840 open2,8,2,"halbj.,s,r" <ld> 

1850 input#2,x <kj> 

1860 fori=0tox:input#2,vw$(i) :inpu 
t#2,su$(i):input#2,mm$(i):input#2, 
me$(i) :nexti <oe> 

1870 close2 <mg> 

1880 scnclr:color0,1:color4,1:colo 
r1,6,4 <ih> 

1890 charl,0,0,rn$++b4$+b4$+"halbj 
aehrliche ausgaben"+b5$+b4$+rf$ <cd> 
1900 x=x+1 <fh> 

1910 charl,0,5,"hoehe der ausgabe 
: ":inputsu$(x) <eb> 

1920 charl,0,7,"Verwendungszweck"+ 
b2$+": ":inputvw$(x) <jn> 

1930 charl,0,9,"faelligkeitsmonate 
:":char1,8,11,"1. monat : ":inputm 
m$(x) <nd> 

1940 charl,8,12,"2. monat : ":inpu 
tme$(x) <ej> 

1950 charl,9,24,"weiter eingeben ( 
j/n) ?" <pe> 

1960 getkeya$:ifa$="j"then1880:els 
ei970 <pk> 

1970 open2,8,2,"@:halbj.,s,w" <af> 

1980 print#2,x <ha> 

1990 fori=0tox:print#2,vw$(i) :prin 
t#2,su$(i):print#2,mm$( i):print #2, 
me$(i):nexti <gl> 

2000 close2:goto1240 <oo> 

2010 rem-<nb> 

2020 rem jaehrlich eingeben <fi> 

2030 rem-<ga> 

2040 x=-1 <ah> 

2050 open2,8,2,"jaehrl.,s,r" <gn> 

2060 input#2,x <no> 

2070 fori=0tox:input#2,vw$( i):inpu 
t#2,su$(i):input#2,mq$( i) :nexti:cl 
ose2 <ne> 

2080 scnclr : col.or0, 1 :color4,1 :colo 
r1,15,5 <ec> 

2090 charl,0,0,rn$+b5$+b4$+"jaehrl 
iche ausgaben "+b$+rf$ <fc> 

2100 x — x +1 <ia> 

2110 charl,0,5,"hoehe der ausgabe 
: " : i nputsu$(x) <bk> 

2120 charl,0,7,"Verwendungszweck"* 
b2$+": ":inputvw$(x) <in> 

2130 charl,0,9,"fael1igkeitsmonat 
: ":inputmq$(x) <km> 

2140 charl,9,24,"weiter eingeben ( 
j/n) ?" <bp> 

2150 getkeya$:ifa$-"j"then20O0:els 
e2160 <jb> 

2160 open2,8,2,"§:jaehrl.,s,w" <lf> 

2170 print#2,x <ge> 

2180 f ori=0i:ox : pri nt#2, vw$( i) : prin 


L#2,su$(1):print#2,mq$(i):nexti:cl 
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ose? <eh> 

2190 goto 1240 <fe> 

2200 rem-<mo> 

2210 rem zurueck ins hauptmenue <of> 

2220 rem-<fb> 

2230 goto240 <jb> 

2240 rem ========================= <ml> 

22S0 rem ausgaben aendern <dh> 

2260 rem ========================= <jp> 

2270 scnclr:color0,4,4:color4,4,4: 
colorl,4,1 <ki> 

2280 char1,5,0,rn$+"untermenue 'au 
sgaben aendern ' " + rf$ <pf> 

2290 charl,5,5,"1) monatliche ausg 
aben”:charl,5,7,"2) vierteljaehrli 
che ausgaben” <ig> 

2300 char1,5,9,"3) halbjaehrliche 
ausgaben":charl,5,11,"4) jaehrlich 
e ausgaben" <lf> 

2310 char1,5,13,"5) zurueck ins ha 
uptmenue" <om> 

2320 charl,6,24,rn$+"bitte1,2,3 od 
er 4 eingeben !"+rf$ <op> 

2330 do:getd$:loopuntild$>"0"andd$ 

<"6" <jd> 

2340 b=val(d$):onbgoto2390,2620,20 
80,3120,2350 <oe> 

2350 rem-<ml> 

2360 rem zurueck ins hauptmenue <ip> 

2370 rem-<ig> 

2380 goto240 <pk> 

2390 rem-<kl> 

2400 rem monatlich aendern <ni> 

2410 rem---<g 1 > 

2420 scnclr:color0,3,4:color4,3,4: 
colorl,3,1 <il> 

2430 charl,0,0,rn$+b6$+" monatlich 
e ausgaben aendern"+b6$+rf$:print: 
print <jk> 

2440 open2,8,2,"monatl.,s,r" <ia> 

2450 input#2,x <fg> 

2460 fori=0tox:input#2,vw$(i) :inpu 
t#2,su$(i):nexti :close2 <ok> 

2470 fori=0tox:scnclr:char1,0,0,rn 
$+b6$+" monatliche ausgaben aender 
n"+b6$+rf$ <pg> 

2480 char1,0,5,"hoehe der ausgabe 
: ":printsu$(i) <fm> 

2490 charl,0,7,"Verwendungszweck"* 
b2$+": ":printvw$(i) <nm> 

2500 charl,0,20,rn$+b6$+"a=aendern 
"+b3$+"w=weiter"+b3$+"e=ende"+b5$+ 
rf$ <ij> 

2510 getkeya$ <am> 

2520 ifa$="a"thengoto2570 < jp > 

2530 ifa$="w"then2550 <ke> 

2540 ifa$="e"then2580:else2580 <lg> 

2550 ifi=xthen2580 <ph> 


2560 nexti < hg> 

2570 charl,18,5,"":inputsu$(i):cha 
rl,18,7,"":inputvw$(i):goto2550 <fc> 
2580 open2,8,2, " 6 : monatl.,s,w" <cc> 

2590 print#2,x <lm> 

2600 fori^Btox:print#2,vw$( i) :prin 
t#2,su$(i):nexti:close2 <fm> 

2610 goto2240 <ac> 

2620 rem-<kb> 

2630 rem vierteljaehrl. aendern <od> 

2640 rem-<kh> 

2650 scnclr:color0,6,4:color4,6,4: 
colorl,6,1 <ob> 

2660 open2,8,2,"viertelj.,s,r" <nb> 

2670 input#2,x <bi> 

2680 fori=0tox:input#2,vw$( i) :inpu 
t#2,su$(i):input#2,mo$( i) :input#2, 
mn$(i) <ne> 

2690 input#2,ma$(i):input#2,mt$(i) 

:nexti:close2 <bh> 

2700 fori=0tox:scnclr:charl,0,0,rn 
$+b3$+"vierteljaehrliche ausgaben 
aendern"+b3$+rf$ <fn> 

2710 charl,0,5,"hoehe der ausgabe 
: ":printsu$(i) <cl> 

2720 charl,0,7,"verwendungs/weck"+ 
b2$+": ":printvw$(i):charl,0,9,"fa 
elligkeitsmonate:" <in> 

2730 char1,8,11,"1. monat : ":prin 
tmo$( i)-.charl ,8,12, "2. monat : ":p 
rintmn$(i) <hn> 

2740 charl,8,13,"3. monat : ":prin 
tma$(i):char1,8,14,"4. monat : ":p 
rintmt$(i) <df> 

2750 charl,0,20,rn$+b6$+"a=aendern 
"+b3$+"w-weiter"+b3$+"e=ende"+bS$+ 
rf$:getkeya$ <ae> 

2760 ifa$="a"then2800 <jd> 

2770 ifa$="w"then2780:else2830 <nm> 

2780 ifi= ; xthen2830 <op> 

2790 nexti <ap> 

2800 charl,18,5,"":inputsu$(i):cha 
rl,18,7,"":inputvw$(i) <hd> 

2810 charl,17,11,"":inputmo$(i):ch 
arl f 17,12,"":inputmn$(i) <fh> 

2820 charl,17,13,"":inputma$(i):ch 
arl,17,14,”":inputmt$(i):goto2780 <ed> 
2830 open2,8,2,"@:viertelj.,s,w" <gg> 
2840 print#2,x <go> 

2850 fori=0tox : printj?2, vw$( i) :prin 
t#2,su$(i) :print.#2,mo$( L) :print^2, 
mn$(i) <dd> 

2B60 print#2,ma$(i):print#2,mt$Ci) 

:nexti:close2 <ml> 

2870 goto2240 <kd> 

2880 rem-<ig> 

2890 rem halbjaehrl. aendern <ce> 

2900 rem-<kl> 
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2910 scnclr:color0,5,4:colur4,5,4: 
colorl,5,1 <ji> 

2920 open2,8,2,"halbj.,s,r" <nj> 

2930 input#2,x <gj> 

2940 fari=0tox:input#2,vw$(i):inpu 
t#2, su$( i) : input#2,mm$( i) :input#2, 
me$(i) <ne> 

2950 nexti:close2 <po> 

2960 fori=0tox:scnclr:char1,0,0,rn 
$+b5$+"halbjaehrliche ausgaben aen 
dern"+h4$+rf$ <eh> 

2970 charl,0,5,"hoehe der ausgabe 
: ":printsu$(i) <ik> 

2980 charl,0,7,"Verwendungszweck"+ 
b2$ + ": ":printvw$(i):charl,0,9,"fa 
eiligkeitsmonate: H <lo> 

2990 charl,8,11, "1. monat : ":prin 
tmm$(i):char1,B,12,"2. monat : ":p 
rinfcme$( i) <ad> 

3000 charl,0,20,rn$+b6$+”a=aendern 
"+b3$+"w-wei.ter"+b3$ + "e=ende"+b5$+ 
rf$:getkeya$ <fl> 

3010 ifa$-"a"then3050 <df> 

3020 if a$ =z "w"then3030:else3070 <ca> 

3030 ifi-xthen3070 <kn> 

3040 nexti <pl> 

3050 charl,18,5,"":inputsu$(i):cha 
r1,18,7,:inputvw$( i) <kl> 

3060 charl,17,11,"":inputmm$(i):ch 
ar1,17,12,:inputme$(i):goto3030 <ip> 
3070 open2,8,2,"0:halbj.,s,w" <nd> 

3080 print#2,x <hp> 

3090 fori=0tox: print ff 2 , ww$( i) : prin 
t#2,su$(i):print#2,mm$(i):print #2, 
me$(i) <lp> 

3100 nexti:close2 <mp> 

3110 goto2240 <mj> 

3120 rem-<fh> 

3130 rem jaehrlich aendern <da> 

3140 rem-<om> 

3150 scnclr:color0,12,4:color4,12, 
4:color1,12,1 <kp> 

3160 open2,8,2,"jaehrl.,s,r" <ji> 

3170 inpuf.#2, x <hk> 

3180 fori=0tox:input#2,uw$(i):inpu 
tff ?, su$( i) : input#2,mq$( i) : nexti :cl 
ose2 <kk> 

3190 fori=0tox:scnclr:charl,0,0,rn 
$+b6$+"jaehrliche ausgaben aendern 
"+b6$+rf$ % <em> 

3200 charl,0,7,"hoehe der ausgabe 
: ":printsu$(i) <ld> 

3210 charl,0,9,"Verwendungszweck^ 
b2$+": ":printvw$(i) <ok> 

3220 charl,0,11,"faelligkeitsmonat 
: ":printmq$(i) <gb> 

3230 charl,0,20,rn$+b6$+"a=aendern 
"+b3$+"w=weiter"+b3$+"e^ende"+b5$+ 


rf$:getkeya$ <og> 

3240 ifa$="a"then3280 <hf> 

3250 ifa$="w"then3260:else3300 <ho> 

3260 ifi.-xthen3300 <nj> 

3270 nexti <jh> 

3280 charl,18,7,"":inputsu$(i):cha 
rl,18,9,:inputvw$(i):char1,18,11 
,:inputmq$(i) <pg> 

3290 goto3260 - <gc> 

3300 open2,8,2,"8:jaehrl.,s,w" <go> 

3310 print#2,x <of> 

3320 fori=0tox:print#2,vw$(i):prin 
t#2,su$(i):print#2,mq$(i):nexti:cl 
ose2 <jm> 

3330 goto2240 <gn> 

3340 rem =============*=-========= <ma> 

3350 rem ausgaben drucken <nk> 

3360 rem ==—=================■•==== <di> 

3370 scnclr:color0,13,4:color4,13, 
4:color1,13,1 <gn> 

3380 charl,0,0,rn$+b$+b2$+"ausgabe 
n drucken"*b$+b2$+rf$:char1,0,3,"" <ln> 
3390 print"mit diesem unterprogram 
in wird eine " <la> 

3400 print"uebersicht aller ausgab 
en ausgedruckt." <ai> 

3410 print:print"bitte gedulden si 
e sich etwas, der aus-" <ja> 

3420 print"druck dauert einige zei 
tü" <el> 

3430 charl,9,24,rn$+"bitte taste d 
ruecken !"+rf$:getkeya$ <km> 

3440 rem-kopfzeile drucken-<hg> 

3450 open4,4 <nc> 

3460 print#4,"uebersicht ueber fes 
te ausgaben"print#4,b3$"datum: " 

;dd$:print#4 <eb> 

3470 pri.nt#4, "Verwendungszweck <im> 

3480 restöre3980:fori = 1toi2:readx$ 

: prin t#4, "* " l.ef t$( x$, 3) ; : next: pr i 
nt#4 <pn> 

3490 forza := 1to78:print#4, :next 
za:print#4 <od> 

3500 rem-monatl. ausgaben-<ih> 

3510 open2,B,2,"monatl.,s,r":pp=0 <on> 

3520 forg=1to12:sm(g)=0:next <ch> 

3530 input#2,x <bc> 

3540 f ori=0tox : input#2,vw$,su:prin 
t#4,left$(vw$+b$+b6$,16)" <pi> 

3550 forg=1to12:print#4,"*”using"# 

MW"; su; : sm( g) =sm( g) +su: next: print 
#4 <ne> 

3560 nexti:close2 <hf> 

3570 rem -viertelj. ausgaben- <lm> 

3580 open2,8,2,"viertelj.,s,r":pp= 

0 <il> 

3590 input#2,x <no> 

3600 fori=0tox:input#2,vw$,su,mo$, 
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mn$,ma$,mt$ 

3610 print#4,left$( vw$+b$+b6$, 16) " 

*" ■ 

» 

3620 restöre3980:forg=1to12:readmz 
$ 

3630 fl=Teft$(mz$,len(mo$))-mo$ 
3640 fl=florleft$(mz$,len(mn$))-mn 

$ 

3650 fl^flnrleft$(mz$,len(ma$))=ma 

$ 

3660 fl=florleft$(mz$,len(mt$))=mt 

$ 

3670 ifflthenprint#4, "*"using"M## 
";su;:sm( g)= sm(g)+su:elseprint#4," 
*"b4$; 

3680 nextg:print#4 
3690 nexti:close2 

3700 rem -halbj. ausgaben- 

3710 open2,8,2,"halbj.,s,r" 

3720 Lnput#2,x 

3730 fori=0tox:input#2,vw$,su,mm$, 
mq$ 

3740 print#4,left$(vw$+b$+b6$,16)" 

»" • 

> 

3750 restöre3980:forg^lto12:readmz 

$ 

3760 fl=left$(mz$,len(mm$))=mm$ 
3770 f1-florleft$(mz$,len(mq$))-mq 
$ 

3780 ifflthenprint#4,"*"using"#### 
"; su; : sm( g) ^sin( g)+su:elseprint^4," 
*"l>4$; 

3790 nextg:print^4 
3800 nexti:close2 

3810 rem -jaehrliche ausgaben— 

3820 open2,8,2,"jaehr1.,s,r" 

3830 input#2,x 

3840 fori=0tox : input#2, vw$, su, inq$ 

3850 print#4,left$(vw$+b$+b6$,16)" 

*" - 
» 

3860 restöre3980:forg^1to12:readmz 

$ 

3870 fl^left$(mz$,len(mq$))^mq$ 
3880 iff lthenprint#4, "*"using"MW 
";su;:sm(g)=sm(g)+su: eiseprint#4," 


<jh> 


<cd> 


<mp> 

<Pj> 

<ak> 

<hd> 


<co> 


<ng> 
<ge> 
<mf > 
< le> 
<ej> 
<ag> 

<ok> 

<od> 

<af > 
<fn> 

<fe> 


<nb> 
<dk> 
< jh> 
<f 1> 
<dg> 
<nn> 
<ie> 

<f 1> 


<cp> 

<bd> 


C16/P4 

Hotline 

Jeden Mittwoch 
15-19— 

Tel. 083/1298013 


*"b4$; <af> 

3890 pk-pk+1 :nextg:print#4 <cr»> 

3900 nexti:close2 <cd> 

3910 rem-monatliche summen-<eb> 

3920 forza=1to78:print#4,;:next 
:pri.nt#4 <jf> 

3930 print#4,"monatliche summe <ig> 

3940 forg=1to12:print#4,"*"using"# 
ft# ft” ; sm( g) ; : next: print#4: goto240 <np> 

3950 rem-<ea> 

3960 rem datas <ei> 

3970 rem-<jc> 

3980 datajanuar,februar,maerz,apri 
1,mai,Juni,Juli,august,September,o 
ktober <og> 

3990 datanowember,dezember <cp> 

4000 rem nach spann =============== <nm> 

4010 rem * farbcodes/Steuercodes ~ <mb> 

4020 rn$-chr$(018):fl$=chr$(130) <ef> 

4030 fo$=chr$(132):rf$-chr$(146) <bf> 

4040 ye$=chr$C158) <bo> 

4050 b$=chr$(32):b2$=b$+b$ <pj> 

4060 b3$=b2$+b$:b4$=b3$+b$ <ij> 

4070 b5$=l>4$+h$:b6$=b5$+b$ <he> 

4080 b$-b5$+b$:return <ma> 

4090 rem ========================= <gf> 

4100 rem 60671 bytes memory <gb> 

4110 rem 13530 bytes program <cb> 

4120 rem 00217 bytes variables <ln> 

4130 rem 02835 bytes arrays <nh> 

4140 rem 00608 bytes strings <bn> 

4150 rem 43481 bytes free (0) <pm> 

4160 rem ========================= <pd> 


DER COMPUTER SPIELT NACH NOTEN 



Vom Blatt zu singen oder zu spielen, ist 
nicht jedermanns Sache. Schreiben Sie die Noten 
doch einfach ab, und zwar mit dem Computer. 
Dann können Sie hören, wie es richtig klingt. Außer¬ 
dem läßt sich die Melodie in eigene Programme 
einbinden. Gleich zwei Programme sorgen für die 
richtige Musik. 

Beide Programme gehören zusammen. Das erste Pro¬ 
gramm heißt „Notenblatt“, das zweite „Datamaker 
Musik“. 


NOTENBLATT 


Nach dem Start können Erklärungen abgerufen wer¬ 
den. Danach wird das Notenblatt mit vier Notenzei¬ 
len und Tastenerklärungen gezeichnet. 

Jeder, der mit der Musik nicht allzuviel am Hut hat, 
der auch nicht Klavierspielen kann und somit mit 
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LISTINGS1 


professionellen Programmen nicht zurechtkommt, 
kann mit diesem Programm die Noten aus einem Lie¬ 
derbuch einfach abschreiben. 

Das Programm verarbeitet 18 Noten mit den dazuge¬ 
hörigen Halbtönen. Eingangs gesetzte # oder b wer¬ 
den über das ganze Stück beibehalten. Auflösungen 
von # oder b im Takt werden nach Setzen des näch¬ 
sten Taktstriches für weitere Eingaben wieder aufge¬ 
hoben. Ebenso gelten im Takt geschriebene # oder b 
nur für den betreffenden Takt. 

Es ist auch möglich, die im Stück vorgesehenen Pau¬ 
sen mit einzugeben. 

Das Stück kann jederzeit abgespielt werden, danach 
lassen sich weitere Eingaben vornehmen. Insgesamt 
sind 500 Töne und Pausen mögüch. 

Das Stück kann nach Beendigung der Eingabe auf 
Diskette gespeichert werden. 


DATAMAKER MUSIK 


Dieses Programm wandelt ein sequentielles File (Mu¬ 
sikstück) in Datazeilen zur Verwendung in eigenen 
Programmen um. Um diese Data auch verwenden zu 
können, ist es am besten, das in den Zeilen 500 bis 
600 des Programms unter REM angegebene Pro¬ 
gramm zu verwenden, das auch einen Ausstieg aus 
dem Musikstück ermöglicht. 

1. Notenblatt 


0 = Wiederholung Anfang. 

g = Wiederholung Ende. 

1 = Ganze Note, 2 = halbe Note, 3 = viertel Note, 

4 = achtel Note, 5 = sechzehntel Note, 6 = zwei- 
unddreißigstel Note. 

7 = #, 8 = b. 

A = Auflösungszeichen, hebt # oder b für diesen 
Takt auf. 

B = Zeichnet den Taktstrich (wichtig, wenn innerhalb 
eines Takts ein Auflösungszeichen oder ein # 
oder ein b geschrieben wurde). 

C = Ganze Pause, D = halbe Pause, E = viertel Pause. 

F = Achtel Pause, G = sechzehntel Pause. 

H = Ende des Programms mit Sicherheitsabfrage, ob 
Melodie gespeichert wurde. 

L = Laden einer Melodie von Diskette. 

S = Speichern einer Melodie auf Diskette. 

P = Spielen einer eingegebenen Melodie zu jedem 
Zeitpunkt der Eingabe oder einer von Diskette 
geladenen Melodie. 

N = Löschen aller Eingaben und Neustart. Vorsicht: 
Keine Sicherheitsabfrage! 

+ = Tondauer des zuletzt eingegebenen Tones oder 
einer Pause wird um die Hälfte des Wertes ver¬ 
längert. 

— = Löscht die letzte Eingabe (Note oder Taktstrich 
oder # oder b oder Auflösungszeichen oder Pause 
oder Wiederholungszeichen). 


Dokumentation: 

Zeilen 100- 590 

Zeilen 610— 810 
Zeilen 830— 900 

Zeilen 920-1020 
Zeilen 1040-1160 

Zeilen 1180-1310 

Zeilen 1320-1520 

Zeilen 1540-1580 

Zeilen 1600-1660 


Zeilen 1680-1800 
Zeilen 1820-1870 

Zeilen 1890-2030 


Zeilen 2050-2160 


Zeilen 2180-2260 
Zeilen 2280-2340 
Zeilen 2360—2860 
Zeilen 2870-2980 
Zeilen 3000-3170 


Notenblatt und SHAPES 
zeichnen. 

Hauptteil der Eingabe. 

Erkennen der Tonhöhe und 
Tondauer. 

Unterprogramm “Ende“. 

Laden einer Melodie von Dis¬ 
kette. 

Speichern einer Melodie 
(Diskette). 

Setzen der Tonerhöhungs- (#) 
und Tonerniedrigungszeichen (b). 
Spielen einer eingegebenen oder 
geladenen Melodie. 

Schreiben des Auflösungszei¬ 
chens (# und b werden für einen 
Takt aufgehoben). 

Setzen des Taktstriches. 

Notenzahl (500 Noten) über¬ 
schritten. 

Löschen einer Eingabe. Nur die je¬ 
weils letzte Eingabe kann gelöscht 
werden. 

Schreiben des Wiederholungszei¬ 
chens. Die Noten, die zwischen 
zwei Wiederholungszeichen stehen, 
werden nochmals übernommen. 
Setzen des Eingabepfeiles. 
Schreiben der Pausen. 

Variablen, Einleitung. 
Fehlerkanalabfrage. 

Notendata. 


Erläuterungen zum Programmablauf: 


Nachdem das Programm mit RUN gestartet wurde, 
können Bedienungsinstruktionen abgefragt werden. 
Danach wird das Notenblatt gezeichnet sowie am un¬ 
teren Bildschirmrand die Tastenbedeutung angezeigt. 
Im einzelnen: 


Zur Eingabe: _ 

Nachdem das Notenblatt und der Eingabepfeil oben 
links gezeichnet sind, können die Noten von einem 
Musikstück abgeschrieben werden. 

Zu Anfang — wie beim Musikstück auch — wird die 
Tonart durch # oder b bestimmt. Dazu mit „Cursor 
down“ und „Cursor up“ auf oder zwischen die ent¬ 
sprechenden Linien der ersten Notenzeile fahren und 
7 oder 8 drücken. Danach auf die entsprechende No¬ 
tenlinie fahren und das nächste # oder b schreiben. 
Diese Eingaben gelten für das ganze Stück. 

Jede Notenzeile besteht aus fünf Notenlinien und vier 
Hilfslinien. Die Hilfslinien sind auf einem normalen 
Notenblatt nicht gezeichnet und hier nur gestrichelt. 
Im Bereich der unteren Hilfslinie bis zur oberen Hilfs¬ 
linie jeder Notenzeile können Noten plaziert werden. 
Kommt im Musikstück ein Taktstrich, ist dieser mit 
B zu schreiben. Die richtige Spalte sucht sich der Com¬ 
puter selbst für alle Eingaben. Die Wiederholungszei¬ 
chen sehen wie folgt aus: 

Anfang 11:0 
Ende : I I g 

Wenn im Musikstück von Anfang bis Ende wiederholt 
werden soll, genügt die Eingabe g am Ende des Musik¬ 
stückes, und das ganze Stück wird wiederholt (nicht 
nochmal geschrieben, aber die Noten werden zwei¬ 
mal hintereinander gespeichert). 

Kommt im Musikstück zwischendurch ein # oder b, 
so ist unbedingt auf die Eingabe des Taktstriches zu 
achten, denn # oder b gelten nur bis zum nächsten 
Taktstrich. Das gleiche gilt für ein Auflösungszeichen. 
Wird der Taktstrich vergessen, wird ab dieser Stelle 
das ganze Stück falsch, da dann jede entsprechende 
Note mit Erhöhung, Erniedrigung oder beim Auflö¬ 
sungszeichen ohne diese gespeichert wird. 

Während der Eingabe kann jederzeit das Musikstück 
mit P gespielt und die Eingabe dann fortgesetzt wer¬ 
den. 


Lesen Sie bitte weiter auf Seite 113 
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NOTENBLATT 


— 1 

— 

10 rem notenblatt-“—p4 

<1 i> 

430 drawl,145,199to150,196 

<hk> 

20 rem ( p) commodore weit team 

<ho> 

440 drawl,154,192to154,198to157,19 


30 rem =========================== 

<ng> 

6toi 57,194to154,194 

<og> 

40 rem ( c) by reiner hickel 

<hg> 

450 drawl,161,194:draw1,161,196:dr 


B0 rem 

<pd> 

awl,163,192to163,198:drawl,165,192 


60 rem 

<ah> 

to165,198 

<fg> 

70 rem basic v3.5 

<nl> 

460 drawl , 169,19?to169,197t.o172,19 


80 rem plus4 (c16/116 + 64kb),disk 

<gc> 

6 

<oi> 

90 rem-—-----— 

<jg> 

470 drawl,169,194to172,193to172,19 


100 graphic1,1:clr:gosub3250:color 


9 

<ad> 

1,2,4:colorß,1:scncIr 

<gl> 

480 drawl,179,192to179,199 

<oh> 

110 gosub?360:volla 

<kn> 

490 drawl,186,193to189,193to189,19 


120 scnclrrforj=16to136step40 

<mk> 

4to186,194:drawl,184,192to191,192 

<nc> 

130 fori-0to4:sound3,750+i*50,5 

<lm> 

500 drawl,192,195to199,195:draw1,1 


140 drawl,10,j+i*4to319,j+i*4 

<ng> 

94,193to197,193to197,194to194,194 

<ek> 

150 nexti,j 

<ee> 

510 drawl,203,192to?04,194to?03,19 


160 forj=8to128step40 

<jg> 

6to204,197to203,198 

<mk> 

170 furi=jtoj+4step4 

<dp> 

520 drawl,210,194to214,194to211,19 


180 Fork=10to314step8:sound3,700+k 


9 

<oh> 

,2 

<em> 

530 drawl,218,194to222,194to217,19 


190 drawl,k,itok+4,i 

<go> 

9: drawl,218,195to221,195 

<ge> 

200 drawl,k,i+28tok+4,i+2B 

<no> 

540 drawl,3,6to6,8to3,10:ifoo=1the 


210 nextk,i,j 

<lo> 

noo=0:ns=an+10:z=1:zp=6:return 

<df > 

220 drawl, 10,0t.o 10, 168: sound3,900, 


550 fori=88to216stepB 

<dj> 

1 

<ln> 

560 sshapen$((i-88)/8),i,192,i+7,1 


230 drawl,0,168to319,168to319,169t 


99 

<pi> 

o0,169:sound3,900,2 

<dg> 

570 nexti:soundl,500,3 

<jg> 

240 ohar,11,22,"tastenbedeutungen" 

<ic> 

580 ssltapep$ ,0,6,6,10: sshapecl$,0, 


250 charl,0,22,"loesch= -":char1,0 


11,6,19 

<em> 

,23,"play"+b2$+"= p M 

<fp> 

590 sshapeon$,11,0,18,42 

<jh> 

260 charl,0,24,"save"+b2$+"= s" 

<mk> 

600 rem -hauptschleife=====-=^-==-= 

<lm> 

270 ohar1,30,22,"punkt = +":char1, 


610 z=1 

<bo> 

31,23,"ende = h" 

<og> 

620 do 

<mh> 

280 charl,31,24,"load = 1" 

<jb> 

630 getq$:ifq$=""then810 

<hn> 

290 z=0 : fori-11 t.o20 

<pa> 

640 sound3,934,1 

<kf > 

300 char,11,23,"0123456789abcdefg" 

<kh> 

650 ifq$=cu$thenh=zp: zp=zp+2:gosub 


310 drawl,89,192to89,198:drawl,91, 

192t.o91 , 190:draw1,93, 194 :drawl , 93, 


2180 

660 ifq$=co$thenh=zp:zp=zp-2:gosub 

cmj> 

196:sound3,900,4 

<mo> 

2180 

<nd> 

320 f ori=99t.o!39step8 : sound3,850+i 


670 ifq$="0"thenwa=nz:gosub2050 

<no> 

,45 

<jh> 

680 ifq$-"9"thenwe=nz:gosub2050 

<gd> 

330 circle 1,i,197,2,1 

<id> 

690 ifq$="+"thensound3,750,5:1( nz) 


340 ifi>107thenpaint1,i,197,1:soun 


-1.5*1(nz) 

<pl> 

d3,650,5 

<aa> 

700 ifq$="-"thengosub1890 

<Pj> 

350 nexti 

<mj> 

710 ifq$-"8"orq$-"7"thengosub1330 

<mm> 

360 fori = 109to141stepB:scund3,850+ 


720 ifq$>"0"andq$<"7"thengosub830 

<bk> 


<io> 

730 ifq$= : "a"thengosub 1600 

<cn> 

370 drawl,i,192toi,197 

<hg> 

740 ifq$="b"thengosub1680 

<ib> 

380 nexti:sound3,950,10 

<c.c> 

750 ifq$="h"then920 

A 

er 

V 

390 drawl,125,192to127,192 

<dp> 

760 ifq$="l"thengosub1040 

<nh> 

400 drawl,133,192to135,192:draw1,1 


770 ifq$="s"thengosub1180 

<em> 

33,193to135,193 

<nh> 

780 ifq$="p"thengosub1540 

<io> 

410 drawl,141,192to143,192:draw1,1 


790 ifq$-"n"thenrun 

<jc> 

41,193t.o 143, 193:drawl, 141 , 194toi43 


800 ifq$>"b"andq$<"h"thengosub2280 

<ka> 

, 194 

<of > 

810 loop 

<eg> 

420 drawl,146,194to146,199:drawl,1 


820 rem -noten erkennen-^- 

<nj> 

48,193to148,198:drawl,145,195to150 


830 gosub2180:w=(zp-( z-1)*40-4) /2 

<lk> 

, 19? 

<PJ> 

840 a=h(w)+a(w)+1:q=val( q$) :h=zp-3 

<el > 
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850 nz=nz+1:ifnz>500thengosub1820 <oe> 
860 s(nz)=t(w,a) <ea> 

870 l(nz)=64/(2?(q-1)) <al> 

880 soundl,s(nz),1(nz) <ah> 

890 gosub2240 <gl> 

900 lo=0:return <kj> 

910 rem =ende======== : ============= <ni> 

920 graphic0,1 <pc> 

930 printcu$cu$tab(3)"ist die melo 
die gespeichert? (j/n)" <id> 

940 getkeyx$ <lk> 

950 ifx$="j"thengraphicclr:end <ph> 

960 printcu$tab(3)"soll sie gespei 
chert werden? (j/n)" <mo> 

970 getkeyx$ <ji> 

980 ifx$="j"thengosub1180 <em> 

990 printcu$tab(3)"weitere melodie 
n eingeben (j/n)" <lk> 

1000 getkeyx$:ifx$="j"thengraphic1 
,1:goto120 <gm> 

1010 graphicclr:end <lb> 

1020 goto920 <ln> 

1030 rem =melodie laden=========== <ia> 

1040 graphic0,1 <hk> 

1050 printcu$cu$tah(3)"mit <d> wer 
den alle musiktitel" <hm> 

1060 printcu$tab(3)"ausgedruckt, s 
onst andere taste" <bc> 

1070 getkeyx$:ifx$="d"thendirector 
y"*=s" <ce> 

1080 printcu$tab(3);:input"titel d 
er melodie";na$:na$=left$(na$,12) <pl> 
1090 open2,8,2,na$+", s, r" <an> 

1100 input#2,nz <hh> 

1110 fori=1tonz <jo> 

1120 input#2,s(i) <bc> 

1130 input#2,l(i) <ml> 

1140 nexti <cn> 

1150 close2 <hn> 

1160 graphicl,0:return <cc> 

1170 rem -melodie speichern======= <ml> 

1180 graphic0,1 <eb> 

1190 printcu$cu$tab(3);:input"tite 
1 der melodie";na$:na$=left$(na$,9 
) <ok> 

1200 open 15,8,15 <lp> 

1210 open2,8,2,na$+",s,w" <if> 

1220 gosub2870:ifu=1thenu-0:goto11 
90 <jP> 

1230 ifu=2thenu=0:goto 1200 <ok> 

1240 ifu=3thenu=0:return <nm> 

1250 print#2,nz <il> 

1260 fori=1tonz <nl> 

1270 print#2,s(i) <gb> 

1280 print#2,1(i) <ga> 

1290 nexti <ik> 

1300 close2:close15 <gd> 

1310 graphicl,0:return <lc> 


1320 rem =setzen von ff oder b—-<ni> 

1330 ifnz>0then1440 <on> 

1340 w=( zp-(z-1)*40-4)/2:ifval(q$) 
=7thenh(w)=1:elseh(w)=-1 <pl> 

1350 ifw<5thenh(w+7)=h(w):h(w+14)= 
h(w) <hn> 

1360 ifw>4andw<12thenh(w+7)=h(w) <cp> 

1370 ifw>7andw<15thenh(w-7)=h(w) <be> 

1380 ifw>14thenh(w-14)=h( w):h(w~7) 

=h(w) <fb> 

1390 fori=zp-2to120+zp-2step40 <kb> 

1400 gshapen$(val(q$)),ns,i,2 <gm> 

1410 nexti < ß m> 

1420 ns=ns+10:an=ns:xy=xy+1 <ad> 

1430 lo=0:return <le> 


1440 gshapen$(val(q$)),ns,zp-2,2:x 


1450 w=(zp-(z-1)*40-4)/2:ifval(q$) 
=7thenh(w)-1:elseh(w)=-1:r=w <nb> 

1460 ifw<5thenh(w+7)=h(w):h(w+14)= 
h(w) :q=w+7:t=w+14 <hm> 

1470 ifw>4andw<12thenh( w+7)=h( w):s 

=w+7 < ß a> 

1480 ifw>7andw<15thenh(w-7)-h(w):u 

=w-7 <bl> 

1490 ifw>14thenh(w-14)=h(w):h(w-7) 

=h(w):v=w-14:o=w-7 <gm> 

1500 ns=ns+10: ifns>312thenns=an: z- 
2+ 1 <mo> 

1510 ifz-5thenz=1:oo-1:gosub120 <mh> 
1520 lo=0:return <cm> 

1530 rem =lied spielen=====“===== <nd> 

1540 fori=1tonz <lg> 

1550 wait65297,8:ifs( i)=0thenforp= 

1tol(i):nextp:goto1570 <ef> 

1560 sound1, s( i),1(i):sound2,s(i)+ 

2,1(i) <n P> 

1570 nexti <oo> 

1580 return <pc> 

1590 rem =aufloesungszeichen====== <11> 

1600 q=dec(q$):h-zp-2:xy=1 <fb> 

1610 w=(zp—(z-1)*40-4)/2:a(w)=-h(w 
):gosub2240 <df> 

1620 ifw<5thena(w+7)=-h( w) :a(w+14) 

=-h(w) <fe> 

1630 ifw>4andw<12thena( w+7)=-h( w) <nd> 
1640 ifw>7andw<15thena( w-7)=-h( w) <kp> 
1650 ifw>14thena(w-7)=-h( w):a(w-14 
)=-h(w) - <P m> 

1660 lo=0:return <gP> 

1670 rem =taktstrich========= =: == = = <fl> 

1680 h=(z- 1 )*40+20:q=dec( q$) <kd> 


1690 gosub2240:xy=1 <te> 
1700 fori=1to18 <Km> 
1710 a( i) =0 <fc> 
1720 nexti <ei> 
1730 ifq<>0thenh(q)=0:q=0 <ip> 
1740 ifr<>0thenh(r)=0:r=0 <oh> 
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1750 ifs<>0thenh(s)=0:s=0 <cm> 

1760 ift<>0thenhCt)=0:t=0 <dp> 

1770 ifo<>0thenhCo)=0:o=0 <lm> 

1780 ifu<>0thenh( u)=0:u=0 <km> 

1790 if w<>0tlienh( v) =0: v=0 <ac> 

1800 lo=0:return <ig> 

1810 rem -notenzahl ueberschritten <hp> 

1820 graphic0,1 < gj > 

1830 printcu$cu$cu$tab(3)"mehr als 
500 toene gehen nicht." <mc> 

1840 printtabC3)cu$"bitte melodie 
speichern und neu" <ge> 

1850 printtabC 3)cu$"dimensionieren 
(zeile 2300)" <fp> 

1860 printtabC3)cu$cu$cu$"taste dr 
uecken" <on> 

1870 getkeyx$:graphic1,0:return <ig> 
1880 rem =note loeschen=========== <ek> 

1890 iflo=1thenreturn <ob> 

1900 ifxy>0andnz=0then1970 <of> 

1910 ifxy>0andnz>0thenxy=0:goto193 
0 <ho> 

1920 nz=nz-1:ifnz<0thennz=0 <ch> 

1930 ns=ns-10:ifns<anthenns=312: z- 
z-1:ifz<1thenz=1:ns=an <dj> 

1940 h=C2-1)*40+8 <oe> 

1950 gosub2180:gshapecn$,ns,pa-6 <jo> 

1960 lo=1:return <md> 

1970 h-C z-1)*40 <io> 

1980 ns=ns-10:an=an-10:ifns<12then 
ns=12:an=12:xy=xy-1 <hd> 

1990 ifxy<0thenxy=0 <fc> 

2000 fori=htoh+120step40 <mm> 

2010 gshapecn$,ns,i <ge> 

2020 nexti <pl> 

2030 lo=1:return <da> 

2040 rem =wiederholungszeichen==== <md> 

2050 ifnz>500thengosub1820:return <of> 

2060 h=int(zp/42) <g j> 

2070 h=40*h+20:q=val(q$) <dd> 

2080 gosub2240:xy=1 <pf> 

2090 ifq$=”0"thenreturn <ho> 

2100 g=we-wa <ga> 

2110 ifg+nz>580t.hengosub1820:retur 
n <bm> 

2120 fori=we+1towe+g <ic> 

2130 sCi)=s(i-g):1(i)=1(i-g) <dd> 

2140 nexti:nz=nz+g <ci> 

2150 wa=0:we=0 <en> 

2160 return <ho> 

2170 rem =pfei1 positionieren===== <jf> 

2180 pa=(z-1)*40+6 <ac> 

2190 pe=z*40 <bm> 

2200 ifzp>pethenh=zp:zp=pe <mj> 

2210 ifzp<pathenh=zp:zp=pa <bc> 

2220 gshapecl$,0,h-4:gshapep$,0,zp <fi> 

2230 return <al> 

2240 gshapen$(q),ns,h,2:ns=ns+10:i 


f ns>312t.henns=an: z=z + 1 <of> 

2250 ifz=5thenz=1:oo=1:gosub120 <ck> 

2260 xy=0:return <ai> 

2270 rem -pausen setzen=========== <kj> 

2280 q=ascCq$)-55 <dn> 

2290 pp-2t( 16-Cq-4)) <ln> 

2300 h=Cz-1)*40-20*Cpp=256)-21*( pp 
=128)-20*(pp=64)-20*(pp=32)-20*(pp 
=16) <gb> 

2310 gosub2240 <kn> 

2320 nz=nz+1:ifnz>500thengosub1820 <gf> 
2330 sCnz)=0:l(nz)=3.5*pp+4*(q-8)+ 

20 <pa> 

2340 lo=0:return <bo> 

2350 rem =variablen=============== <ng> 

2360 zp=6:nz=0:wa=0:we=0:ne=312:an 
=12:ns=12:la=8 <ae> 

2370 dim s(500),1(500),n$( 16),hC18 
),a( 18),t( 18,2) <hm> 

2380 cu$=chr$(17):co$=chr$C145) <ko> 

2390 fori=1to18 <mg> 

2400 forj=0to2 <ng> 

2410 readt(i,j) <aa> 

2420 nextj,i <kk> 

2430 char,1,1,"werden instruktione 
n gewuenscht?(j/n)" <hm> 

2440 getkeyx$ <no> 

2450 ifx$="n"thenreturn <bg> 

2460 ifx$<>"j"then2430 <bg> 

2470 scnclr:char,1,1,"mit diesem p 
rogramm koennen musik-" <kk> 

2480 char,1,3,"stuecke von einem n 
otenblatt abge-" <ef> 

2490 char, 1,5, "schrieben werden, in 
it Cursor up/down" <kf> 

2500 char,1,7,"wird der pfeil Clin 
ker rand) auf die" <cf> 

2510 char,1,9,"entsprechende noten 
linie gestellt." <dn> 

2520 char,1,11,"mit '7' oder '8' w 
erden die ff oder b," <id> 

2530 char,1,13,"mit '1' - '6' die 
notenwerte," <kf> 

2540 char,1,15,"mit # 0' oder '9' d 
ie Wiederholungen" <in> 

2550 char,1,17,"mit 'a' das aufloe 
sungszeichen" <hh> 

2560 char,1,19,"mit 'b' die taktst 
riche und mit" <hb> 

2570 char,1,21,"'c' - 'g’ die paus 
en eingegehen." <nm> 

2580 char,10,24,"taste druecken" <lg> 
2590 get.keyyx$ <bm> 

2600 scnclnchar, 1, 1, "weitere tast 
enbedeut.ungen : " <cm> 

2610 char,1,3,"'1'= lied laden; 's 
'= lied speichern" <ih> 

2620 char,1,5," 'h'= programm beend 
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i 


en" <pc> 

2630 char,1,7,"'n' = Speicher loesc 
hen, neuanfang" <hp> 

2640 char,1,9,"'p'= lied spielen" <bp> 

3650 char,1,11,"'+' verlaengert di 
e tondauer um die" < ^g > 

2660 char ,5, 13, "haelf te" <jb> 

2670 char,1,15,"' loescht die le 
tzte eingabe" <Kh> 

2680 char,1,17,"der taKtstrich ist 
stets zu setzen," <ak> 

2690 char, 1 , 19, "wenn auch im tnusik 
stueck ein solcher” <gg> 

2700 char, 1,21 , "erscheint ( senkrec¬ 
hter strich ueber" <kk> 

2710 char,1,23,"5 notenlinien)" <ij> 

2720 char,10,24,"taste druecken" <cc> 

2730 getkeyyx$ <ka> 

2740 scnclr:char,1,1,"die noten, d 
ie zwischen den wiederho-" <af> 

2750 char,1,3,"lungszeichen stehen 
, werden doppelt" <hd> 

2760 char,1,5,"gespeichert. wenn n 
ur das wiederho-" <hb> 

2770 char,1,7,"lungszeichen '9' ge 
setzt ist, wird" <mc> 

2780 char,1,9,"das stueck vom anfa 
ng bis zu diesem" <hb> 

2790 char,1,11,"wiederholungszeich 
en doppelt ge-" <kj> 

2800 char,1,13,"speichert." <be> 

2810 char, 1 , 15, "zusaetzliche ff ode 
r b gelten nur im" <bj> 

2820 char,1,17,"takt, das aufloesu 
ngszeichen 'a'" <al> 

2830 char,1,19,"ebenfalls. # oder 
b, die zu beginn" <bk> 

2840 char,1,21,"geschrieben wurden 
,gelten fuer das" <hn> 

2850 char,1,23,"ganze stueck."+b$+ 

" taste druecken" <ic> 

2860 getkeyx$:return <mh> 

2870 input#15,aa,bb$,cc,dd <el> 

2880 ifaa<>63then2950 <ag> 

2890 ifaa=63thenprintcu$tab(3)na$" 
existiert" <dd> 

2900 printcu$tab(3)"soll ueberschr 
ieben werden? (j/n) <jn> 

2910 getkeyx$:ifx$="n"thenu=1:clos 
e15:close2:return <mn> 

2920 ifx$<>"j"then2910 <ef> 

2930 na$="@0:"+na$:close15:close2 <co> 
2940 u=2:return < jl > 

2950 ifaa=0thenreturn <bd> 

2960 printaa;bb$,cc,dd:close2:clos 
e15:u=3 <bb> 

2970 print"taste druecken" <lc> 

2980 getkeyx$:return <on> 


2990 

rem =notendatas= 

-- 


<ee> 

3000 

data911,917,923 



< jm> 

3010 

data904,911,917 



<kb> 

3020 

data889,897,904 



<jc> 

3030 

data872,881,889 



<mj> 

3040 

data8S4,864,872 



<fn> 

3050 

data844,854,864 



<f j> 

3060 

data822,834,844 



<dg> 

3070 

data798,810,822 



<ej> 

3080 

data784,79B,810 



<ab> 

3090 

data754,770,784 



<ib> 

3100 

data721,739,754 



<mg> 

3110 

data685,704,721 



<jc> 

3120 

data664,685,704 



<bf > 

3130 

data620,643,664 



<mn> 

3140 

data571,596,620 



<eg> 

3150 

data544,S71,596 



<fm> 

3160 

data5B5,516,544 



<ic> 

3170 

data418,453,485 



<oi> 

3180 

rem aenderungen 

fuer datasett 


enbetrieb 



<li> 

3190 

rem streiche 1050 

- 1070 

<on> 

3200 

rem streiche 1200 

- 1240,2870 


- 2980 



<bd> 

3210 

rem aendere: 1090 

open2,1,0,n 


a$ 




<pf > 

3220 

rem aendere: 1200 

open2,1,1,n 


a$ 




<pa> 

3230 

rem aendere: 1300 

close2 

<mk> 

3240 

rein nachspann=== 

—• 


<pd> 

3250 

b$=chr$(32):b2$- 

b$+b$ 

<li> 

3260 

b$-b2$+b2$:b$=b$+b$+b2$ 

<ji> 

3270 

return 



<dd> 

3280 

rem —-- 



^ JP' 

3290 

rem 60671 bytes 

memory 

<oe> 

3300 

rem 08852 bytes 

program 

<eg> 

3310 

rem 00203 bytes 

variables 

<ji> 

3320 

rem 05580 bytes 

arrays 

<ka> 

3330 

rem 00659 bytes 

strings 

<bl> 

3340 

rem 12288 bytes 

graphic 

<ha> 

3350 

rem 33089 bytes 

free (0) 

<eh> 

3360 

rem-==-= 




Fortsetzung 

von Seite 109 



Wenn zur Speicherung keine Diskette vorhanden ist, 
kann mit Datasette mit folgenden Programmänderun¬ 
gen gearbeitet werden: 

Streiche Zeilen 1050—1070 
Ändere: 1090 open2,l ,0,na$ 

Streiche Zeilen 1200—1240 und 2870—2980 
Ändere: 1200 open2,l ,1 ,na$ 

Ändere: 1300 close2 

Grundsätzliches zur Eingabe: Notenlinien abzählen, 
Pfeil am linken Rand auf die entsprechende Notenlinie 
setzen und eine der Tasten 1 bis 6, 7, 8, A oder C bis 
G drücken. 

Für die Eingabe 0, 9, B, „+“ oder ist die Stellung 
des Pfeiles gleichgültig, ebenso für F, H, L, S, P, N. 
Lesen Sie bitte weiter auf Seite 114 
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DATAMAKER MUSIK 


10 rem datamaker musik= r= ==== : == : ==p4 <mp> 

20 rem (p) eommodore weit team <ho> 

30 rem =========================== <ng> 

40 rem (c) by reiner hickel <hg> 

50 rem <pd> 

60 rem basic v3.5 <od> 

70 rem plus4 (c16/116 + 64 kb) <cd> 

80 rem floppy (kassette anpassbar) <nb> 

100 graphicl,1:graphic0 <oa> 

110 scnclr:input"name des liedes"; 
a$ <ka> 

120 open2,8,2,a$+",s,r" <jf> 

130 input#2,nz <nb> 

140 x=int(nz/3) <kk> 

150 if nz-3*x=0thenh :;; 0: goto170 <bo> 

160 if(nz+1)/3-int((nz+1)/3)thenh= 
1:elseh»2 <hm> 

170 dimstnz+h),l(nz+h) <jb> 

180 fori=1tonz < Pj > 

190 input#2,s(i),1(i) <ai> 

200 nexti < gP > 

210 close2:ifh=0then250 <bm> 

220 fori=nz+1tonz+h <bf> 

230 s(i)-0:1(i)=0 <bm> 

240 nexti <ap> 

250 nz=nz+h <kg> 

260 ad-4100 <gf> 

270 fori=1tonz <ek> 

280 s1=int(s(i)/256):s2=s(i)-s1*25 
6 <kf > 

290 11=int(1(i)/256):12=1[i)-11*25 
6 <ed> 

300 pokead,sl:pokead+1,s2:pokead+2 
,11:pokead+3,12 <lj> 

310 ad=ad+4 <dk> 

320 nexti:ed=4100+nz*4-1:ad=4100 <km> 
330 input"beginn der datazeilen";d 
a <df > 

340 input"schrittweite";sw <ep> 

350 scnclr:print"370data";ad;", ";e 
d;",";da;",";swr print"goto380" <bm> 

360 poke1319,19:poke1320,13:poke13 
21,13:poke239,3 <nl> 

370 rem =reservierte zeile======== <he> 

380 restore370:x$="" <pc> 

390 readad,ed,da,sw <pn> 

400 ifad-1=edthenscnclr:printda"da 
ta0,0":poke1319,19:poke1320,13:pok 
e239,2:end <bn> 

410 forj=1to3 <ik> 

420 s=peek( ad)*256+peek(ad+1) <mo> 

430 l=peekCad+2)*256+peek(ad+3) <hn> 

440 x$=x$+str$(s)+","+str$(1) <mj> 

450 ifj<3thenx$=x$+"," <mo> 

460 ad=ad+4 <hn> 

470 nextj:nd=da+sw <la> 

480 scnclr:print"370data"ad","ed", 


H nd","sw:printstr$( da)"data"x$:pri 
nt"goto380" <lm> 

490 poke1319,19:poke1320,13:poke13 
21,13:poke1322,13:poke239,4:end <ai> 


500 

rem 

um 

die datas dann zu verwe 


nden 



<hg> 

510 

rem 

ist 

am besten folgendes pr 


ogramm 



<jb> 

520 

rem 

zu 

verwenden wegen der pau 


sen: 




<nf > 

530 

rem 

10 

la=8: rem (lautstaerke) 

<km> 

540 

rem 

20 

restore:rem dataanfang 





lied 

<oi> 

550 

rem 

30 

volla:do:reads,1:getx$: 





ifx$<>""thenexit 

<ii> 

560 

rem 

40 

if s=0andl>0thenfori=1to 





1:nexti:goto70 

<of > 

570 

rem 

50 

ifs=0andl=0then exit 

<pb> 

580 

rem 

60 

sound1,s,1 

<PJ> 

590 

rem 

70 

wait65297,la:loop:retur 





n(hauptprogramm) 

<ed> 

600 

rem 

la 

im waitbefehl entsprich 


t der vol-einstellung 

<ig> 

610 

rem 

die 

i anweisung wartet, bis 


der 

ton 

zu 

ende gespielt ist 

<io> 

620 

rem 

zeile 370 ist die fuer das 



programin wichtige datazeile <di> 

630 rem aenderungen fuer datasette 
nbetrieb <li> 

640 rem aendere: 110 open2,1,0,na$ <pm> 

660 rem = achtung !!! = <al> 

670 rem = programm darf nicht = <db> 

680 rem = umnummeriert werden! = <jg> 

690 rem ========================== <cn> 

700 rem programmende <ao> 
710 rem ========================== <ne> 

Fortsetzung von Seite 113 

2. Datamaker Musik _ 

Dokumentation: 

Zeilen 100—210 Laden des Liedes von D. 

Zeilen 220—320 Schreiben der Noten mit Tondauer 
in den Speicher DEC 4100—6100 
Zeilen 330—360 Eingabe der ersten Zeilennnummer 
der Data und Schrittweite. (Diese 
Daten werden in Zeile 370 als Ar- 
beitsdatazeile übernommen.) 

Zeilen 380—490 Umwandeln der Lieddaten in Data¬ 
zeilen. 

Zeilen 500—640 Anmerkungen mit kurzem Pro¬ 
gramm zum Abspielen der Melodie 
mit Ausstiegmöglichkeit. 

Pausen erscheinen in den Data mit Notenwert 0 und 
Tondauer größer als 96. 

Nachdem die Datas geschrieben sind, DELETE -710 
eingeben, dann stehen nur noch die Datazeilen im 
Speicher. 

Bitte beachten, daß der Grafikmodus eingeschaltet ist 
und der BASIC-Anfang bei Hex $4000 hegt. □ 
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STARTMENÜ 

Programmanwahl 
per Tastendruck 

Mühseliges Eingeben des Ladebefehls und des 
Programmnamens gehören der Vergangenheit an. 

Mit dem Startmenü als erstem File auf der Diskette 
geht es viel einfacher. 

Das Startmenü sollten Sie sich auf jede frisch forma¬ 
tierte Diskette kopieren. Steht dieses Programm an er¬ 
ster Stelle, so braucht es nur den Druck der Commo- 
dore- und der Run-Taste. Das Inhaltsverzeichnis ist 
nun in Menüform zu sehen. Nur die PRG-Files wer¬ 
den aufgelistet. Ein revers dargestellter Buchstabe 
signalisiert, mit welchem Tastendruck ein bestimmtes 
Programm zu laden ist. 



Sind mehr Programme auf der Diskette, als auf den 
Bildschirm passen, so ist dies für das Startmenü auch 
kein Handicap. Mit der Return- oder der Cursor-down- 
Taste werden die nächsten 16 Directory-Einträge 
sichtbar. Mit Pfeil-Taste oder Cursor-up läßt sich be¬ 
quem wieder zurückblättem. Ist ein bestimmtes Pro¬ 
gramm ausgewählt, wird es automatisch geladen und 
zugleich mit RUN gestartet. Für Maschinenprogram¬ 
me, die eventuell anders aufzurufen sind, läßt sich 
dieses Startprogramm allerdings nicht verwenden. 


LESEN DES INHALTSVERZEICHNISSES 


In Zeile 210 des Programmes STARTMENUE.BAS 
steht die erforderliche OPEN-Anweisung. Wer aller¬ 
dings denkt, mit INPUT#-Befehlen würden die einzel¬ 
nen Einträge gelesen werden können, irrt sich. Erst 
am Ende des Directories erscheint der für den INPUT 
so wichtige Return-Code mit dem ASCII-Wert 13. Der 
Eingabepuffer wäre unterdessen schon längst überge¬ 
laufen, was das System mit einem String-too-long- 
Error quittieren würde. Daher ist in BASIC der GET#- 
Befehl zu verwenden. 


LESEN DES FILE-NAMENS 


Ob die einzelnen Einträge mit einer Null abgeschlos¬ 
sen werden oder nicht, darum brauchen wir uns nicht 
zu kümmern. Wir wollen ja nur den File-Namen lesen. 
Dieser ist eingeschlossen in Anführungszeichen, die 
den ASCII-Wert 34 besitzen. Die Unterroutine in den 
Zeilen 110 bis 150 liest die nach dem ersten Anfüh¬ 
rungszeichen stehenden Buchstaben des File-Namens 
in die Variable A$ ein. Bei Erreichen des zweiten An¬ 


führungszeichens wird die Routine beendet und der 
File-Name liegt zur weiteren Bearbeitung bereit. 

Ist das Directory bereits zuende gelesen, so sorgt 
Zeile 120 für den vorzeitigen Rücksprung. Für den 
ersten Directory-Eintrag, der den Header enthält, ha¬ 
ben wir keine Verwendung. Erst die nachfolgenden 
Einträge sind für uns interessant. In eine DO-LOOP- 
Schleife lesen wir alle File-Namen ein, bis das Re¬ 
turn-Zeichen uns das Ende signalisiert. 


LESEN DES FILE-TYPS 


Da nur die Programm-Files auf der Diskette für uns 
wichtig sind, führen wir eine Selektion durch. Dazu 
ist der File-Typ zu lesen. Dieser folgt auf den File- 
Namen, durch mehrere Leerzeichen getrennt. Sein 
Ende ist ebenso durch Leerzeichen markiert. Mit ei¬ 
ner zweiten Unterroutine in den Zeilen 160 bis 190 
bekommen wir ihn in den Griff. Wir lesen weiter bis 
zum ersten Zeichen, das kein Leerzeichen ist. Die fol¬ 
genden Buchstaben werden erfaßt, bis das anschlie¬ 
ßende Leerzeichen wieder den Rücksprung auslöst. 


MIT MASCHINENCODE GEHT ES SCHNELLER 


GET-Befehle, mit denen jeder Buchstabe einzeln in ei¬ 
ner Schleife gelesen werden muß, sind ziemlich lang¬ 
sam. Den Wunsch nach Schnelligkeit kannn nur ein 
Maschinenprogramm erfüllen, das die GET-Routinen 
ersetzt. Das Programm STARTMENUE.MC liest das 
Directory in etwa derselben Zeit, die auch der Direc¬ 
tory-Befehl brauchen würde. Mit der Routine 
BASIN - es geht auch mit GETIN - werden die ge¬ 
wünschten Zeichen in den Eingabepuffer gebracht. 

Mit zwei POKEs setzen wir das GET-Flag und signali¬ 
sieren, daß die Eingabe nicht von der Tastatur erfolgt 
ist. Mit einem SYS-Aufruf erreichen wir dann die 
Übergabe der im Eingabepuffer liegenden Zeichen an 
unsere Stringvariable. 


BASIC-FASSUNG ANPASSBAR 


Die Fassung STARTMENUE.BAS ist besonders für 
diejenigen interessant, die das Programm gerne für 
den CI28 oder den C64 umschreiben möchten. Beim 
C64 müssen alle DO-LOOPs durch GOTO-Sprünge 
oder FOR-NEXT-Schleifen ersetzt werden. Die Me¬ 
thode mit der Funktionstasten-Belegung hat für einen 
C64 natürlich keinen Sinn. Wer nicht das ROM des 
CI 28 nach einem SYS-Befehl zur Simulation eines 
Funktionstasten-Druckes durchforsten will, tut gut 
daran, die althergebrachte Methode zur Übergabe von 
Befehlen in den Direktmodus zu verwenden. 

Vor Programmende ist der Bildschirm zu löschen und 
die Lade- sowie Startanweisung an die richtigen Bild¬ 
schirmpositionen zu schreiben. Danach sind der Home- 
Code und die erforderliche Anzahl von Return-Codes 
in den Tastaturpuffer zu POKEn und die Anzahl der 
gePOKEten Zeichen dem Tastaturindex zu übergeben. 
Nach Beendigung des Programmes übergibt der Rech¬ 
ner durch die im Tastaturpuffer gespeicherten Return- 
Codes — die auf den Bildschirm geschriebenen An¬ 
weisungen an sich selbst. 

Die Funktionstasten-Belegung beim CI6 hat den Vor¬ 
teil, daß nicht zu berücksichtigen ist, in welcher Bild¬ 
schirmzeile nach einer Ladeanweisung der Cursor 
wohl stehen mag. Der Funktionstasten-Puffer ist 
schließlich groß genug, daß er nicht nur ein paar Re¬ 
turn. Zeichen, sondern die vollständigen Anweisungen 
aufnehmen kann. □ 
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■ LISTINGS 


STARTMENUE.MC 

10 rem startmenue.mc===========c16 <co> 

20 rem ( p) commodore weit team <ho> 

30 rem =========================== <ng> 

40 i’em ( c) by roland engelhardt <nf> 
50 rem ( v) a. mittelmeyer mc <gd> 
60 rem - <ah> 

70 rem basic v3.5 <nl> 

80 rem c16/116/plus4 + disk <pi> 

100 fori=818to875 <mn> 

110 reada:pokei,a:next <ne> 

120 data 032,145,167,201,013,208 <dh> 

130 data 001,096,201,034,208,244 <em> 

140 data 162,000,032,145,167,201 <eb> 

150 data 034,240,011,157,000,002 <el> 

160 data 232,224,089,144,241,076 <jd> 

170 data 076,204,076,049,144,169 <nh> 

180 data 034,141,068,003,208,214 <lg> 

190 data 162,000,169,032,141,068 <mf> 

200 data 003,032,145,167,201,032 <gk> 


210 data 240,249,208,219 <gb> 

220 dimv$(207):dimy$(15) <nk> 

230 open 1,8,0,"$0":poke2035,1:sys6 
5478 <oi> 

240 poke19,1:poke17,64:sys853 <da> 

250 do:sys853:ifst<>0thenexit <gp> 

260 sys37210b$:sys860:sys37210a$ <jc> 

270 ifa$="prg"thenv$(x)=b$:x=x+1 <oi> 

280 loop:sys65484:close1 <ph> 

290 re$=chr$(28):rn$=chr$(18) <ln> 

300 fl$-chr$(130):fo$=chr$f 132) <km> 

310 bk$=chr$(144):rf$=chr$(146) <al> 

320 b$=chr$(32) <lf> 

330 b2$=b$+b$:b4$=b2$+b2$ <ja> 

340 b5$=b4$+b$:b$=b5$+b5$ <nm> 

350 forx=0to15:y$(x)=chr$(65+x):ne 
xtx <bk> 

360 scnclr:print <pi> 

370 printtab(10)rn$re$b$b$rf$bk$ <af> 

380 printtabf 10)rn$re$b5$"start-me 
nue"b4$ < c f> 

390 printtabf10)rn$re$b$b$rf$bk$ <na> 

400 print <lm> 

410 forx=0to15step2:printrn$re$ M " 
y$(x) M "rf$bk$" "y$(x+y); <go> 

420 printtabf20)rn$re$" "y$(x+1)" 
"rf$bk$" "v$(x+y+1):print:nextx <fb> 
430 printtabf12)rn$re$fl$b$b5$rf$b 
k$fo$ <ca> 

440 printtabf12)rn$re$fl$b2$"waehl 
e file"b2$rf$fo$bk$ <Ih> 

450 printtabf12)rn$re$fl$b$b5$rf$b 
k$fo$ <ai> 

460 getkeya$:ify>170then480 <nn> 

470 ifa$=rhr$(13)ora$=chr$(17)then 
y=y+16:goto360 <cp> 

480 ify<16then500 <md> 


490 ifa$="~"ora$=chr$( 145)theny=y- 


16:goto360 <ff> 

500 ifa$<*’a ,, ora$>"p"then460 <ei> 

510 a=ascfa$)-65 <po> 

520 scnclr <pm> 

530 key4,"dL"+chr$(34)+v$f a+y)+chr 
$(13)+"rU"+chr$(13) <ng> 

540 poke2035,3:sys56364 < og> 

550 rem ========================== <pp> 

560 rem pragrammende <hp> 
570 rem ========================== <mo> 


S T AR T MENUF . BAS 


10 rem startmenue.bas====-=====c 16 <pk> 
20 rem fp) commodore weit team <ho> 

40 rem (c) by roland engelhardt <nf> 
50 rem <pd> 

60 rem <ah> 

70 rem basic v3.5 <nl> 

80 rem c16/116/plus4 + disk <pi> 

90 rem =========================== <jg> 

100 goto200 <od> 

110 b$--"" < co > 

120 get#1,c$:ifc$=chr$f13)thenretu 
rn <pf> 

130 ifc$<>chr$(34)then120 <ma> 

140 get^l,c$:ifc$<>chr$( 34)thenb$= 
b$+c.$ : goto 140 <go> 

150 return <11> 

160 0$="- <hg> 

170 get#1,c$:ifc$=chr$( 32)then170 <hm> 

180 ifc$<>chr$(32)thena$-a$+c$:get 
#1,c$:goto1B0 <fe> 

190 return • <al> 

200 dimv$(?07):dimy$(15) <jg> 

210 openl,8,0,"$0" < g l> 

220 gosub110 ci j> 

230 do:gosub110:ifst<>0thenexit <mi> 

240 gosub160 <na> 

250 ifa$-"prg"thenv$(x)"b$:x=x+1 <pl> 

260 loopiclosel <ao> 

270 re$-chr$f28):rn$=chr$f 18) <hg> 

280 fl$-chr$(130):fo$-chr$(132) <ad> 

290 bk$~chr$(144):rf$-chr$(146) <me> 

300 b$-chr$(32) <jb>- 

310 b2$=b$+b$:b4$-b2$+b2$ <an> 

320 b5$=b4$+b$:b$=b5$+b5$ <fb> 

330 forx=0to15:y$(x)=chr$(65+x):ne 
xtx <kf> 

340 scnclr:print <fh> 

350 printtabf10)rn$re$b$b$rf$bk$ <ie> 

360 printtabf10)rn$re$b5$"start-me 
nue"b4$ <ei> 

370 printtabf10)rn$re$b$b$rf$bk$ <af> 

380 print <jd> 
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390 forx=0to15step2:print.rn$re$" 
y$(x)" "rf$bk$" "v$(x+y); <be> 

400 prinitabC20)rn$re$" "y$(x+l) H 
"rf$bk$" "v$( x + yM) : print :nextx <pe> 
410 printtabC12)rn$re$fl$b$b5$rf$b 
k$f o$ <ib> 

420 printtabf 1?) rn$re$f 1 $b2$"waehl 
e file"b2$rf$fo$bk$ <lo> 

430 printtabC12)rn$re$fl$b$bB$rf$b 
k$fo$ <ca> 

440 getkeya$:ify>170then460 <nl> 

450 ifa$=chr$(13)ora$=chr$(17)then 
y~y+16:goto340 <cd> 

460 ify<16then480 <nh> 

470 ifa$ = ”“"ora$~-chr$( 145) theny=y- 
16:goto340 <eli> 

400 ifa$<"a"ora$> M p"then440 <po> 

490 a=a«u:( a$) -65 <mp> 

500 scnclr <nd> 

510 key4, "cIL H +chr$( 34) + v$C a + y) +chr 
$(13)+"rlJ"+chr$(13) <bp> 

520 poke203S,3:sys56364 <gl> 

540 rem p r o g r a m in ende <po> 

550 rem ===-=-================-=== <pp> 


FARBDEMO 

Alle Farben 
auf dem 
Monitor 

Nicht nur als Demo, welche Farben ein CI6 hat, dient 
dieses Programm. Auch der Monitor kann optimal ein¬ 
gestellt werden. Alle Farben und Helligkeitsstufen 
werden auf dem Monitor dargestellt. Sie können 
durch Drehen an Färb-, Helligkeits- und Kontrast-Reg¬ 


ler die beste Farbwiedergabe erreichen. □ 

FARBDEMO 

10 rem farbdemo===-==== = =-*- : == : = : = : = ! c16 <lj> 

20 rem (p) commudore weit team <ho> 

30 rem < n g> 

40 rem (c) by de tief lokay < hg> 

50 rem <pd> 

60 rem <ah> 

70 rem basic v3.5 <nl> 

60 rein c16/1 16/plus4 <ki> 

90 rem ========== : ========== ; ======= < jg > 

100 graphic1,1:elr: a- 1:color1,a,0 <nc> 

110 scnclr:box1,50,20,250,100 <kc> 

120 do <nl> 

130 color1,a,5:color4,a,5 <om> 


140 charl, 7,5,"--** c-16 farbdemo 
***** <mg> 


150 

charl,7,9,"mit space starten" <hn> 

160 

charl,7,10,"mit space be 

enden" <nh> 

170 

a=a+1:forx-1to100:next 

<fl> 

160 

ifa=16thena=1 

<nj> 

190 

geta$: ifa$o""then210 

<hp> 

200 

loop 

<hn> 

210 

graphic0:color1,1 

<ap> 

220 

printcl$ 

<fk> 

230 

d= 5:e-25 

<ab> 

240 

graphic1,1 

<em> 

250 

color1,1 

<dd> 

260 

forx = 1to8 

<mi> 

270 

a=17:b-5:c=20 

<nj> 

280 

do 

<bn> 

290 

box 1,b,d,24,e 

<ip> 

300 

b-b+24-5 

< 1 i > 

310 

box 1,c,d,c,e 

<hm> 

320 

a=a-1: c=c+20-1 

<im> 

330 

loopunti1a-0 

<ka> 

340 

d=d+24:e=e+24 

<nd> 

350 

next x:e=0 

<af> 

360 

l=16:k=7:b=15:e=15 

<kb> 

370 

fory=1to16 

<la> 

360 

k=7 

<kp> 

390 

forz=1to8 

<i 1 > 

400 

colorl,1,k 

<ik> 

410 

paint1,b,e 

<nj> 

420 

k=k-1:e=e+24 

<bh> 

430 

nextz 

<bn> 

440 

rem k=7 

<oo> 

450 

1=1-1:e=15 

<hm> 

460 

b=b+24-5 

<bi> 

470 

nexty 

<11> 

480 

getx$:ifx$=""then480 

<mc> 

490 

graphic0,1:color1,1:color4,7,5 

:end 

<pi> 

500 

rem =p=r=o=g=r=a=m=m=e : =n=d=e== <nb> 
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■ LISTINGS 


GORGUL 


Gorgul, ein Tyrann übelster Sorte, hat sich der 
Herrschaft in Deinem bis dahin glücklichen Heimat¬ 
land bemächtigt. Aufgrund Deines großen Mutes wur¬ 
dest du von der Bevölkerung deines Landes gebeten 
sie von Gorgul zu befreien. Du erfüllst ihre Bitte und 
brichst in den Palast Gorguls ein, um ihn zu finden 
und zu töten. Das ist die Lage zu Beginn des Adven- 
tures. Jetzt mußt Du versuchen, Gorgul in seinem 
Palast zu finden, dabei seinen Wächtern auszuweichen 
oder sie zu bekämpfen, von den Gegenständen, die 
Dir begegnen, zu bewältigen. 


Um Deine Aktionen zu steuern, mußt du Anweisun¬ 
gen mit ein oder zwei Wörtern eingeben. 


Folgende Befehle sind Ein-Wort-Kommandos: 

— Hilfe Dieser Befehl sollte in jedem Raum 

zuerst eingegeben werden. Man erhält 
dann einen Hinweis, der meistens 
nützlich, manchmal aber auch nutzlos 
ist. 

— Kämpfe 

— Iss 

— Gepäckliste Listet die Gegenstände auf, die man 

trägt. 

Folgende Befehle sind Zwei-Wort-Kommandos, d.h. 
es muß zusammen mit dem Befehl noch ein Wort 
zur näheren Bestimmung eingegeben werden (z.B. 
“Nimm Messer” oder “Gehe Nord”): 

— Benutze 

— Gehe mit diesem Befehl kann man sich von 

einem Raum in den nächsten bewe¬ 
gen. 


— Werfe 

— Zerbreche 

— Nimm mit diesem Befehl kann man einen 

Gegenstand, den man in einem Raum 
sieht, mitnehmen. - Gegenteil: Weg¬ 
lege 

— Klettere 

r- Verschiebe 

— Weglege 

— Betrachte dieser Befehl gibt einem nähere Infor¬ 

mationen über einen Gegenstand 

Programmaufbau: 

Zeile 100 - 340 1. Hauptschleife 
Zeile 350 - 1030 Unterprogramme der 1. Haupt¬ 
schleife 

Zeile 1040 - 1250 2. Hauptschleife 
Zeile 1260 - 1690 Unterprogramme der 2. Haupt¬ 
schleife 

Zeile 1720 — 1860 Daten für Ortsbeschreibungen 
und Gegenstände 

Programmtechnische Besonderheiten: 

— Ortsbeschreibungen sind in DATA-Zeilen abgelegt 

— es gibt 2 Hauptschleifen. Beim Auftreten irgendei¬ 
ner Gefahr für den Spieler (Wächter, Feuer, Gorgul) 
wird von der 1. Hauptschleife in die 2. Hauptschleife 
gesprungen. In der 2. Hauptschleife hat der Spieler 
weniger Befehle zur Verfügung. Ein falscher Befehl 
bedeutet den sofortigen Tod. 

Anmerkung: 

Ich habe mich bemüht das Spiel so zu schreiben, 
daß man beim Abtippen so wenig wie möglich von 
der Handlung des Spieles erfährt. Dies ging allerdings 
etwas zu Lasten der Übersichtlichkeit des Program¬ 
mes und der Sprache des Spiels. CI 
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10 rem gorgu 1-"=======-“"""C16 <gm> 

20 rem ( p) commodore weit, team <ho> 

30 rem =-======-='==■========—======== <ng> 

40 rem (c) by wojfgang markert <pb> 

50 rem oberwerrn <mm> 

60 rem <ah> 

70 rem basic v3.5 <nl> 

80 rem c16/116/plus4 <ki> 

90 rem =======-========-==—======= <jg> 

100 clr:gosub1990:poke1344,64:gosu 
b1700:kr=1 <fp> 

110 ifkr=1thenkr$="ausreichend":el 
seifkr=Bthenkr$="nicht mehr vorhan 
den" <fd> 

120 scnclr:print"du befindest dich 

print]$(1) <di> 

130 print:print"du kannst gehen na 
ch: ";:ifd%(1,0}<>0thenprint"nord 

<bp> 

140 ifd%(1,1)<>0thenprint"ost <cn> 

150 ifd%(l ,2) <>0thenprint"sued "; <gg> 

160 ifd%( 1,3) <>0thenprint"west" <am> 

170 print:print"kraft: ";tab(14)kr 
$ <pm> 

180 print:print"du siehstc=0 <ea> 

190 fork=1to7:ifo%(k)=lthenprintta 
b(14)ol$(k):c-1 <ka> 

200 nextk <hb> 

210 if(w1=0andl=2)or(w2=0andl-5)or 
(w3-0andl=11)or(w4-0andl=12)thenc= 
1:goto1040 <jh> 

220 if( lw=0andl = 16)or(h=0andl=17)o 
r(f-0andl=18)orl=19thenc=1:goto104 
0 <od> 

230 ifc^0thenprinttab(14)"nichts i 
nteressant.es" <de> 

240 forx=1to40:print"=";:nextx <gh> 

250 i$="":j$ = "":m$="" <dk> 

260 input"was jetzt";i$ <jl> 


270 x=len(i$):fory=1tox:k$^mid$(i$ 

,y,1):ifk$=" "thengoto280:elsenext 

V <fl> 


280 y=y-1:j$=left$(i$,3):y=y+2:m$= 
mid$(i$,y,3) <hk> 

290 ifj$="geh"thengoto350:eiseifj$ 
="nim"thengoto400:elseifj$="weg"th 
engoto460 <hl> 

300 ifj$-"gep"t.hengota510:eiseifj$ 
="bet"thengoto540:elseifj$="iss"th 
engoto630 <ap> 

310 ifj$="hil"thengoto650:eiseifj$ 

="wer"thengoto810:elseifj$^"zer"th 
engotoB80 <ne> 

320 ifj$^"kle"thengoto920:elseifj$ 

= "ver"thengoto970:eiseif j$="kae"th 
engot.o980 <mb> 

330 ifj$="ben"thengoto1000 <mb> 

340 print"entschuldige bitte,aber 


ich verstehe"b4$"dich nicht!":goto 
250 <fp> 

350 ifm$="nor"andd%(1,0)<>0thenl=d 
%C1,0):goto110 <en> 

360 ifm$-"ost"anddX(1,1)<>0thenl=d 
%(1,1)rgotol10 <jm> 

370 ifm$-"sue"andd%(1,2)<>0thenl-d 
X(1,2):goto110 <ae> 

380 ifm$="wes"anddX(1,3)<>0thenl-d 
X( l,3);goto110 

390 print"dahin kann ich nicht geh 
en!":goto250 <jg> 

400 f ork-1to7:ifo$(k)=m$ando%(k) =- 
1thenprint"du hast den gegenständ 
doch schon":goto250 <cn> 

410 nextk <lo> 

420 fork=1to7:ifo%(k)=lando$(k)=m$ 
thengoto440 <df> 

430 nextk:print"ich kann den gegen 
stand hier nicht sehen":goto250 <ga> 
440 ifgl=5thenprint"du hast schon 
5 gegenstaende.du kannst nichts m 
ehr nehmen":goto250 <bb> 

450 gl“gl+1:o%(k)=-1:print"ok-du h 
ast den gegenständ":forx=1to2000:n 
extx:goto110 < gf > 

460 fork=1to7:ifm$=o$(k)thengoto48 
0 <ga> 

470 nextk:print"diesen gegenständ 
gibt es in d.iesem"b5$"spiel gar ni 
cht":goto250 <nh> 

480 fork-1to7:ifm$=o$(k)ando%( k)=- 
1 t.hengoto500 <id> 

490 nextk:print"du hast diesen geg 
enstand doch gar nicht":goto250 <ad> 

500 o%(k)=1:gl=gl-1:print"du hast 
den gegenständ abgelegtforx=1to2 
000:nextx:gotol10 <gb> 

510 b=0:print"du traegst:";:forx=1 
to7:ifo%( x) =-1thenprinttab( 14) ol$( 
x):b=1 <df> 

520 nextx : ifb=0thenprinttab( 14) "ni 
chts" <eh> 

530 goto250 <pa> 

540 if(I=loro%(4)=-1)andm$="tas"th 
enprint"sie ist blau":goto250 <dh> 

550 if(l=3oro%(3) =-1)andm$="rev"th 
enprint"er ist geladen und schussb 
ereit":gnto250 - <pe> 

560 if(l=5oroX(2)=-1)andm$="feu"th 
enprint"er ist rot":goto250 <aj> 

570 if(l-7or1-14oro%( 1)=-1)andm$=" 
spi"thengoto5B0:elsegoto590 <jg> 

500 print"man kann ihn leicht zerb 
rechen":goto250 <al> 

590 if(l~9oro%( 5)=-1)andm$="sei"th 
enprint"es sieht morsch aus":goto2 
50 < ld> 
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600 if(l=10oro%(6)=-1)andm$="wur"t 
henprint."sie sieht iippetitlich aus 
":goto250 <eg> 

610 if( 1 = 11oro%( 7)=-1)andm$="sch"t 
henprint"es ist sehr scharf":goto2 
50 <ca> 

620 print"ich Kann den gegenständ 
hier nicht sehen":goto250 <mf> 

630 if1<>10thenprint"du Kannst nur 
in der Kueche etwas essen!":goto2 
50 <jc> 

640 print"gut! jetzt hast du wiede 
r neue Kraefte":Kr=1:forx=lto2000: 
nextxigotol10 <cK> 

650 if1=1thenprint"morgenstund hat 
gold im mund":goto250 <Ki> 

660 ifl=3thenprint"reden ist silbe 
r-schweigen ist gnld”:goto250 <ge> 

670 ifl=4thenprint"wenn man Keine 
Kraft mehr hat,muss man etwas ess 
en":goto250 <dl> 

680 ifl=7thenprint"scherben bringe 
n gluecK-oder auch nicht":goto250 <hn> 


690 if l=9t.henprint"f uer eine versc 
hlossene tuer braucht maneinen sch 


1uesse)":goto250 <le> 

700 ifl=10thenprint"alles hat ein 
ende nur die wurst hat"b4$"zwei":g 
oto250 <hn> 

710 ifl=13thenprint"der hund ist d 
er beste freund eines"b5$"mannes": 
goto250 <ph> 

720 ifl=14thenprint"mancher ist sc 
hon,als er sich im spiegelsah,ersc 
hrocKen":goto250 <de> 

730 ifl=15thenprint"glueck und gla 
s,wie leicht bricht das":goto250 <dl> 
740 printc4$b3$"du hast folgende b 
efehle:" <hK> 

750 printc4$b3$"gehe,nimm,weglege, 
betrachte," <ao> 

760 printb3$"iss(f3-taste),gepaecK 
listetf1-taste)," <pb> 

770 printb3$"hilfe(help-taste),Kae 
mpfe(f2-taste)," <ed> 

760 printb3$"benutze,werfe,zerbrec 
he,Klettere und" <de> 

790 printb3$"verschiebe." <mb> 

000 goto250 <ob> 

810 if1=12andm$="sei"ando%(5)=-1th 
en850 , <ii> 

820 forK=1to7:ifm$=o$(K)thengoto84 

0 <ji> 

830 nextK:print"diesen gegenständ 
gibt es in diesem"b5$"spiel gar ni 
cht":goto250 <je> 

840 print"nichts geschieht":goto25 
0 <bm> 


850 print"gut gemacht!" <dd> 

860 print"mit dem befehl 'Klettere 
hinunter'"b6$"Kannst du dich jetz 
t. auf den unteren" <nh> 

870 print"balKon herunterseilen":K 
m=1:goto250 < ja> 

880 ifl=14andm$="spi"thengoto900 <do> 
890 prinfdas Kann ich leider nich 
t zerbrechen":goto250 <aj> 

900 print"hinter einem der Spiegel 
war eine ver- borgene tuer,die n 
ach osten geht" <fp> 

910 print H diese tuer ist jetzt geo 
effnet":d%(14,1)=17:forx=1to3000:n 
extx:goto110 <fe> 

920 ifKm=1andl=12andm$="hin"thengo 
to940 <^o> 

930 print"dahin Kann ich nicht Kle 
ttern":goto250 <hd> 

940 print"du Kletterst an dem seil 
herunter,doch Kurz bevor du unte 
n ankommst reisst" <bh> 

950 print"das seil und du faellst 
auf den unteren balKon.du Kannst n 
icht mehr hoch." <fc> 

960 forx=1to3000:nextx:o%( 5) =0:gl = 
gl-1:l=13:goto110 <dm> 

970 print"nichts geschieht":goto25 

0 <PP> 

980 print"warum willst du hier Kae 
mpfen? ich Kann hier Keinen gegner 
sehen" <ad> 

990 goto250 <mf> 

1000 forK=1to7:ifm$=o$( k)then1020 <ml> 
1010 nextK:print"diesen gegenständ 
gibt es in diesem"b5$"spiel gar n 
icht!":goto250 <el> 

1020 print"es hat wenig sinn jetzt 
";ol$(k);" zu benutzen":goto250 <lc> 

1030 end <je> 

1040 if(w1=0andl=2)or( w2=0andl=5) o 
rfw3=0andl = 11)thenprinttab( 14) "ein 
en waechter" <dn> 

1050 if(w4=0andl = 12)thenprinttab( 1 
4)"einen waechter" <mf> 

1060 iflw=0andl = 16thenprinttab( 14) 

"den leibwaechter gorguls" <mj> 

1070 ifh=0andl=17thenprinttab( 14)" 
einen grossen hund,der",,left$( qr$ 
,4)+"dich anknurrt" <bp> 

1080 iff<>0orl<>18then1110 <gp> 

1090 printtabf14)"sobald du den ra 
um be-",,left$(qr$,4)+"trittst fae 
ngt dieser" <dn> 

1100 printtab(14)"zu brennen an." <eg> 

1110 ifl=19thenprinttab(14)"gorgul 
" <dp> 

1120 forx=1to40:print"=";:nextx <Kf> 
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1130 i$="": j$="":in$="" <gp> 

114P? input"was jetzt";i$ <nj> 

1150 x-len(i$):fory=1tox:k$=mid$Ci 
$,y,1):ifk$=" "thengotol160:eisene 
xty <lb> 

1160 y-y-1 :j$=left$(i$,3):y=y+2:m$ 
=mid$(i$,y,3) <in> 

1170 ifj$="kae"then1200:elseifj$=" 
ben"then1260:elseifj$="hil"then135 
0 <nn> 

1180 ifj$="bet"then1400: elseifj$=" 
gep"then1460 <ka> 

1190 goto1490 <og> 

1200 ifl=16orl=17orl=18orl=19then1 
490 <eh> 

1210 if(l=2orl=5orl=11orl=12)andkr 
-0then1490 <km> 

1220 printc4$"der waechter greift 
dich an, aber als"b3$"er sieht,das 
s du staerker bist," <oe> 

1230 print"fluechtet er" <ef> 

1240 kr=0:ifl=2thenw1=1:elseif1=5t 
henw2-1:elseifl=11thenw3=1:eiseif1 
=12thenw4=1 <ig> 

1250 forx=1to4000:nextx:gotol10 <dg> 
1260 ifl-2orl-5orl=11orl=12orl=16t 
hen1490 <kj> 

1270 ifl=17andm$="wur"ando%(6)=-1t 
hen1300 <le> 

1280 if1=18andm$="feu"ando%(2)=-1t 
hen1320 <hp> 

1290 if1=19andm$="spi"ando%(1)=-1t 
henl340:elsegoto1490 <ko> 

1300 print"der hund schnappt sie d 
ir aus der hand und verschwindet 
mit ihr" <nl> 

1310 forx=1to4000:nextx:oX( 6)=0:h= 

1:goto 110 < Pj > 

1320 print"du kannst das feuer loe 
sehen" <fj> 

1330 forx=1to4000:nextx:f=1rgotol1 
0 < og > 

1340 print"gorgul sieht sich im sp 
iegel an und":gosub1900 <hm> 

1350 ifl=2orl=5orl=11orl=12thenpri 
nt"versuche zu kaempfen":gotol130 <np> 
1360 ifl=16thenprint"du bist in de 
r naehe gorguls":goto1130 <gm> 


1370 ifl=17thenprint"schau dir den 
hund an und denke nach!":gotol130 <em> 
1380 ifl=18thenprint"das feuer ist 


sehr warm":gotol130 <ip> 

1390 ifl=19thenprint"schau dir gor 
gul an und denke nach!":goto 1130 <hj> 

1400 LfC l-'2orl=5orl= 11orl=12) andm$ 
="wae"thengoto1410:elsegoto1420 <ga> 

1410 print"er traegt eine rosarote 
uniform":gotol130 <be> 


1420 ifl=16andm$=”lei"thenprint"er 
soll unbesiegbor sein":goto 1130 <ib> 

1430 ifl=17andm$="hun"thenprint"er 
ist hungrig":goto 1130 <km> 

1440 ifl=19andm$="gor"thenprint"er 
ist sehr haesslich":goto 1130 <ka> 

1450 goto1490 <id> 

1460 b=0:print"du traegst:";:forx= 

1to7:ifo%( x)=-lthenprinttab(14)ol$ 

( x):b=1 <ce> 

1470 nextx:ifb=0thenprinttab(14)"n 
ichts" <ao> 

1480 gotol130 <cc> 

1490 printcl$c4$left$(qr$,4)cl$"du 
hast das falsche gemachtMprint <hb> 
1500 if(l=2orl=5orl=11orl=12)andkr 
=0thengoto1540 <bh> 

1510 if(l=2orl=5orl=11orl=12)andkr 
=1thengoto1570 <ic> 

1520 if1=16thengoto1600:eiseif1=17 
thengoto1620 <fk> 

1530 if1=18thengoto1630:elseifl=19 
thengoto1640 <aj> 

1540 printc$"der waechter hat dich 
angegriffen und" <aa> 

1550 print"konnte dich,da du keine 
kraft mehr" <dm> 

1560 print"hattest,leicht ueberwae 
ltigen":goto1650 <id> 

1570 print.c$"der waechter hat dich 
angegriffen und" <fh> 

1580 print"konnte dich,da du falsc 
h gehandelt" <af> 

1590 print"hattest,leicht ueberwae 
ltigen":goto1650 < gm> 

1600 printc$"der leibwaechter gorg 
uls konnte dich"b4$"mit seiner ueb 
erlegenen kampfkunst <ne> 

1610 print"leicht besiegen":goto16 
50 <db> 

1620 printc4$"der hund stuerzte si 
ch auf dich und zer--fleischte dich 
":goto1650 <ho> 

1630 printc4$"das feuer schloss di 
ch ein Und du ver- branntestgot 
o1650 <ne> 

1640 printc4$"gorgul stuerzte sich 
auf dich und"b4$b3$"toetete dich" 
:goto1650 - < gd> 

1650 printc$c$"damit waere deine m 
ission gescheitert" <on> 

1660 printc$"jetzt besteht keine h 
Öffnung" <ig> 

1670 printc4$"mehr das land von go 
rgul zu befreien" < gi > 

1680 printc4$c4$c4$"will st du noch 
einmal spielenf j/n) " ; : input.a$ <ko> 

1690 ifa$="j"thenrun:elseend <nc> 
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GORGUL-ADVENTURE 


1700 colorl,1:color0,14,5:printcl$ 
"bitte warten":diml$( 19) :dimdX(19, 
3) 

1710 fork=1to19:readl$(k),d%(k,0), 
d%(k,1),dX(k,2),d%( k,3):next:l=6 
172ß dataim bad eines maennergemac 
hs,,,,2,im Schlafzimmer eines maen 
nergemachs,3,1,, 

1730 dataim salon eines maennergem 
ac:hs, , 4 ,2, , in einem Vorzimmer ,8,5, 
,3 

1740 dataim salon eines frauengema 
chs,,,6,4,im Schlafzimmer eines fr 
auengemachs ,5,,,7 

1750 dataim bad eines frauengemach 
s »> 

1760 datain einem geschmackvoll ei 
ngerichtetem esszimmer,11,9,4,12 
1770 datain einem langen flurjim o 
sten ist eine verschlossene tuer, 
10,,,8 

1780 datain einer kueche,,,9,,in e 
iner gutbestueckten bibliothek,,,8 

I 

1790 dataauf einem balkonjein stoc 
kwerk unter dirkannst du wieder ei 
neu balkor» sehen 

1800 data,8,,,auf einem balkon, } 14 

» t 


— 


et.jetzt wird endlich" <bp> 



1940 

prIntc4$c3$"wieder frieden in 


<gn> 

das 

land einkehren.” 

<oj> 


1950 

printo4$c4$c4$c3$"wi1 Ist du n 


<hl> 

och i 

einmal spielen!j/n)";:inputa$ 

<fl> 


1960 

ifa$="j"thenrun:elseend 

<ad> 


1970 

rem nach spann ========-•-===== 

<hc> 

<ag> 

1980 

rem - farbcodes/steuercodes * 

<gf> 


1990 

i;4$-chr$( 017) :rn$~ehr$( 018) :c 



$=c4$ 

<ee> 

<gb> 

2000 

c3$=chr$(029):rf$=chr$( 146) 

<hj> 


2010 

c1$-chr$(147) 

<ap> 


2020 

rem ********* Zeichenfolgen * 

<pm> 

<an> 

2030 

for q=1 to 40 

<pa> 


2040 

qr$=qr$+c3$ 

<ah> 

<hb> 

2050 

nexfc q:b$-chr|(32):b2$~b$+b$ 



2060 

b3$=b?$+b$:b4$=b3$+b$ 

A 

a? 

V 

<af > 

2070 

b5$=h4$+b$:b6$=b5$+b$:return 

<cm> 


2080 


<gb> 


2090 

rem 12277 bytes memory 

<pn> 

<ng> 

2100 

rem 09262 bytes program 

<ok> 


2110 

rem 00070 bytes variables 

<kk> 


2120 

rem 00321 bytes arrays 

<fb> 

<pa> 

2130 

rem 01133 bytes strings 

<hh> 


2140 

rem 01491 bytes fre(0) 

< 11 > 


2150 

rem ==^=r======== i== - ;==;= _-. =:a . ss;=: _ 

<fc> 

<cn> 




<dh> 

HIRES-GRAFIK MIT NUR 16 KBYTE 



1810 datain einem praechtigen saal 
jdessen waende mit spiegeln verkle 
idet sind,,,15,13 <ld> 

1820 datain einem flur,14,,,16,in 
einer grossen empfangshal1e,,15,, <na> 
1830 datain einem kleinen salon,,, 

10,14,in einem langen gang,17,,19, <bn> 
1840 dataim arbeitszimmer gorguls, 


18,,, <od> 

1850 dimo$(7):dimol$(7):dimo%(7):f 
ork-1to7:reado$(k),ol$( k),oX(k) :ne 
xtk <ah> 

1860 dataspi,einen Spiegel,7,feu,e 
inen feuerloescher,5,rev,einen rev 
o.lver,3 <bh> 

1870 datat.as , e i ne tasclienlampe , 1, s 
ei, ein sei 1,9,wur, eine wurst, 10, sc. 
h,ein schwert.,11 <gf> 

1880 key 1 , "gepaec-k liste"+-chr$( 13) : 
key2, "kaempfe" fr:hr$( 13) :key3,"iss" 
+chr$(13) <ni> 

1890 keyH,"hi1fe"+chr$(13):return <eb> 
1900 print"faellt vor schreck tot 
um" :forx-1 t.o2000 : nextx <ag> 

1910 scnclr:printc4$c4$left$(qr$,1 
5)rn$"gratuliere!"rf$ <je> 

1920 printc4$c4$c4$c3$"du hast dei 
ne gefaehrlich inission" <ce> 

1930 printc4$c3$"erfolgreich beend 


3-D-D@sigini-€3teIif 

Dem C16 verbleiben im HlRES-Grafikmodus 
nur noch etwa zwei KByte Programmspeicher. Fast 
unmöglich mag es scheinen, damit noch viel 
anzufangen. Daß es dennoch geht, beweist dieses sehr 
interessante Spiel, das wirklich das Letzte aus 
dem Rechner herausholt. 


Viele C16-User, die noch 
keine Speichererweite¬ 
rung haben, waren be¬ 
stimmt schon verärgert, 
daß bei Nutzung der 
High-Res.-Grafik zehn 
KByte vom RAM abgezo¬ 
gen werden, so daß nur 
zwei KByte zum Pro¬ 
grammieren übrigbleiben. 
Da es unter diesen Um¬ 
ständen kaum Sinn hat, 
in High-Res. zu program¬ 
mieren, sind vielen C16- 
Besitzern die Wirkungs¬ 
weisen der Grafikbefehle 
unbekannt. 

Mit dem Programm 3-D- 
DESIGN-GOLF möchte 
ich drei Ziele verfolgen: 

© Demonstration der 
High-Res.-Grafik; 

© maximale Speicher¬ 


platz-Ausnutzung; 
©auf Dauer interessan¬ 
tes Spielgeschehen. 
Herausgekommen ist ein 
3-D-Golfspiel, bei dem es 
möglich ist, Golfbahnen 
nach dem eigenen Ge¬ 
schmack zu entwerfen 
und abzuspeichern, um 
sie dann in perspektivi¬ 
scher Darstellung zu be¬ 
spielen. Trotz des unge¬ 
mein knappen Speicher¬ 
platzes konnten Raffi¬ 
nessen wie Windbeein¬ 
flussung und Screenwech- 
sel beim „Putten“ be¬ 
rücksichtigt werden. 

Für Tippfaule dürfte so¬ 
mit 3-D-DESIGN-GOLF 
ein kleiner Leckerbissen 
sein - geringe Mühe wird 
mit einem beeindrucken- 


122 





LISTINGSI 


den Resultat belohnt. 
3-D-DESIGN-GOLF be¬ 
steht aus zwei Teilen. Der 
GOLF-DESIGNER dient 
dazu, Golfbahnen zu kon¬ 
struieren, die später vom 
Spielprogramm GOLF¬ 
PLAYER eingeladen wer¬ 
den. Vom GOLF-PLAYER 
existieren zwei Versionen. 
Wer nur 16 KByte zur 


SPIELANLEITUNG 


Verfügung hat, muß das 
Programm GOLF-PLAY- 
ER.CI 6 verwenden. Da 
der Programmspeicher 
bis zur Grenze in An¬ 
spruch genommen wird, 
ließ sich keine Abfrage 
für Diskette mehr unter¬ 
bringen. 

Daher muß der CI 6/116- 
User, auch wenn er eine 
Floppy besitzt, dennoch 
mit Datasette arbeiten. 

Die Programme selber 
können dabei auf Disket¬ 
te bleiben, nur die mit 
dem GOLF-DESIGNER 
entworfenen Golfbahnen 
sind auf Kassette abzu¬ 
speichern. Da der GOLF¬ 
DESIGNER auf das Spei¬ 
chermedium zugreift, von 
dem er eingeladen wurde, 
muß derjenige, der ihn 
auf Diskette hat, die Bah¬ 
nen aber auf Kassette 
speichert, eine kleine Än¬ 
derung vornehmen: ln 
Zeile 360 ist die Variable 
G mit G=1 auf den Wert 
Eins zu setzen. Der 
OPEN-Befehl in Zeile 380 
kann dann die Datasette 
ansprechen. 

Wer mehr als 16 KByte 
zur Verfügung hat, sollte 
die Version GOLF-PLAY¬ 
ER.P4 verwenden, da er 
ansonsten entweder sei¬ 
nen Rechner vorher mit 
der Hand immer auf 16 
KByte zurücksetzen oder 
durch Ein- und Ausschal¬ 
ten der Grafik die Varia¬ 
blenzeiger richtigstellen 
müßte. Ebenso wie der 
GOLF-DESIGNER greift 
der GOLF-PLAYER.P4 
auf das Gerät zu, von dem 
es geladen wurde. Ist die¬ 
ses Gerät die Datasette, 
so wird das nächste se¬ 
quentielle Kassetten-File 
geladen. 

Bei der Diskettenstation 


wird der Name des zu la¬ 
denden Spielfeldes abge¬ 
fragt. Wer eine Floppy 
hat, den GOLF-PLAY- 
ER.P4 von Diskette ein¬ 
lädt und dennoch die 
Golfbahnen von der Data¬ 
sette laden will, kann dies 
durch eine kleine Pro¬ 
grammänderung verwirk¬ 
lichen. Er braucht in Zei¬ 
le 120 nur G=PEEK( 174) 
in G= 1 zu verwandeln. 

Der Datasettenbenutzer 
speichert zweckmäßiger¬ 
weise zuerst den GOLF¬ 
DESIGNER und dann den 
GOLF-PLAYER ab. Der 
Zählerstand danach soll¬ 
te aufgeschrieben werden, 
denn es gilt, später dort 


die Golfbahnen abzuspei¬ 
chern. 

Laden Sie dazu den Kon¬ 
struktionsteil GOLF¬ 
DESIGNER und konstruie¬ 
ren Sie eine Golfbahn 
nach Ihren Vorstellungen 
mit dem Joystick in Port 
eins. 

Joystickbewegungen oh¬ 
ne Feuerknopf-Betäti¬ 
gung hinterlassen ein Ra¬ 
senfeld, mit Feuerknopf 
folgt ein Wasserfeld. Dem¬ 
nach braucht bei Korrek¬ 
turen nur das Gegenteil 
vorgenommen zu werden. 
Beachten Sie bei der Kon¬ 
struktion, daß von links 
nach rechts gespielt wird; 
die Start- und Zielfelder 
ermittelt der Computer 
per Zufall. 

Zur Abspeicherung einer 
fertigen Bahn drücken 
Sie „S“. Die Bezeichnung 
dient dazu, Verwechslun¬ 
gen mit anderen Program¬ 


men auszuschließen. Die 
Abspeicherungen der Bah¬ 
nen erfolgen zweckmäßi¬ 
gerweise hinter dem Spiel¬ 
programm. Spulen Sie da¬ 
zu das Band bis zum Ende 
des GOLF-PLAYER vor¬ 
wärts. Nach dem Spei¬ 
chern können neue Bah¬ 
nen konstruiert werden, 
bis zur Beendigung die 
,,E“-Taste gedrückt wird. 
Üm 3-D-DESIGN-GOLF 
zu spielen, muß der GOLF¬ 
PLAYER geladen werden. 
Steuerungen erfolgen mit 
dem Joystick (Port eins). 
Das Programm startet da¬ 
mit, daß die Runden- 
(Bahnen-)Anzahl erfragt 
wird, wonach Sie zum La¬ 


den der ersten Bahn auf¬ 
gefordert werden. An¬ 
schließend baut sich die 
Spielbahn aus der Perspek¬ 
tive des Spielers auf, wo¬ 
bei der Abschlagpunkt 
das unterste mittlere Feld 
ist. 

Zur Bestimmung der 
Schlagstärke dienen zwei 
Anzeigen: Die obere An¬ 
zeige stellt die nach vorn 
gerichtete Schlagstärke 
dar. Joystick nach vorn 
= Zunahme; Joystick 
nach hinten = Abnahme. 
Die untere Anzeige dient 
der Darstellung der seit¬ 
wärts gerichteten Schlag¬ 
stärke. Joystick nach 
rechts oder links bedeu¬ 
tet, daß die entsprechen¬ 
de Richtung verstärkt 
wird. 

Der waagerechte Strich 
auf der unteren Anzeige 
erlaubt Rückschlüsse 
über Windrichtung und 


-Stärke. Strich weit 
rechts: starker Wind von 
links. 

Der Wind verlängert oder 
verkürzt die seitliche 
Kraft und wirkt sich ver¬ 
kürzend auf die vorwärts 
gerichtete Kraft aus. 

Der Abschlag erfolgt über 
den Feuerknopf. Danach 
verschwindet der unten 
abgebildete Ball und 
taucht nach Berechnung 
der Flugbalm auf dem be¬ 
rechneten Feld wieder 
auf. Anschließend wird 
das Bild von dieser neu¬ 
en Position aus wieder 
aufgebaut. Landete der 
Ball im Wasser, erfolgt 
der Bildschirmaufbau an 
der alten Position. 


EINPUTTEN 


Das Zielfeld ist durch 
eine weiße Stange ge¬ 
kennzeichnet. Nachdem 
es erreicht ist, wird der 
Ball in das Loch geputtet. 
Hierzu wird das Zielfeld 
formatfüllend in Dunkel¬ 
grün dargestellt, wobei 
das Zielloch als weiße El¬ 
lipse zu sehen ist. Um 
den Ball in das Loch zu 
schlagen, wird der Joy¬ 
stick nach vorn gedrückt 
und bei genügender 
Schlagkraft (aus der An¬ 
zeige ersichtlich) losge¬ 
lassen; eine seitliche 
Krafteinstellung ist nicht 
nötig. Die neue Entfer¬ 
nung zum Loch ergibt 
sich aus der Differenz ei¬ 
nes zu kurzen oder zu 
langen Schusses und der 
Distanz zum Zielloch. 
Wurde der Ball erfolg¬ 
reich eingeputtet, er¬ 
scheint eine Anzeige der 
Schlagzahl innerhalb der 
Runde, der Summe der 
bisherigen Schläge und 
der Rundenzahl. 

Nun kann die nächste 
Bahn geladen werden. 


PROGRAMM¬ 

BESCHREIBUNG 


Zum Programm 

GOLF-DESIGNER: 

• Die Zeilen 110 bis 160 
dienen zum Bildschirm 
aufbau. 

• Innerhalb der Zeilen 
170 bis 240 erfolgt 8- 
mal eine Joystickabfra- 
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ge; jeweils mit Kontrol¬ 
le auf Randüberschrei¬ 
tung, Cursordarstellung 
innerhalb der entspre¬ 
chenden Unterprogram¬ 
me (280 bis 330) und 
nachfolgender Einbe¬ 
rechnung in F$() (=spä¬ 
teres Spielfeld). 

• Der POKE-Befehl in 
Zeile 250 löscht den 
Tastaturpuffer, so daß 
die Tasten ,,S“ und „E“ 
abgefragt werden kön¬ 
nen (Zeile 250 und 
260). 

® Die Taste ,,S“ leitet zur 
SAVE-Routine (Zeile 
340 bis 380) über, wo¬ 
bei F$() abgespeichert 
und zum Programman¬ 
fang zurückgesprungen 
wird. 

Zum Programm 
GOLF-PLAYER.CI 6: 

• Nach INPUT der ge¬ 
wünschten Rundenzahl 
(Zeile 1) beginnt der 
Ladevorgang. 

• In Zeile 5 werden die 
Start- und Zielpunkte 
per Zufall ermittelt. 

• Das nachfolgende 
Hauptprogramm befin¬ 
det sich innerhalb der 
Zeilen 6 bis 22. Es wird 
verlassen, wenn in Zei¬ 
le 6 festgestellt wird, 
daß die aktuelle Ball¬ 
position dem Ziel¬ 
punkt entspricht. 

Zeile 7 stellt sicher, daß 
sich der Ball auf einem 
Rasenfeld befindet. 
Nachfolgend wir inner¬ 
halb der Zeilen 8 bis 10 
ein Gitter aufgezeichnet, 
wobei die Hintergrund¬ 
farbe (0, 7, 2) mit der 
Gitterfarbe (2, 7, 2) iden¬ 
tisch ist. 

Zeile 11 kürzt den Bild¬ 
schirmrand, um nicht be¬ 
rechnete Felder zu lö¬ 
schen 

Zeile 12 füllt die Gitter¬ 
felder mit Hilfe des 
PAINT-Befehls bezogen 
auf Farbzone 1 aus, um 
Überschneidungen mit 
Zone 0 und 2 zu vermei¬ 
den. 

Diese Arbeit bewerkstel¬ 
ligt das Unterprogramm 
31 unter Verwendung der 
in Zeile 3 und 4 abgeleg¬ 
ten DATA. Das Ausfül¬ 
len ist davon abhängig, ob 
der Wert X=6 (Rasenflä¬ 


che) vorhanden ist. Der 
Wert „X“ errechnet sich 
durch den VAL-Befehl 
aus F$(). 

Zur Bedeutung der 
DAT As: 

A = Anfangsposition des 
Pixel-Cursors 
B = Seitliche Schritt¬ 
weite des Cursors 
C = Vertikale Position 
des Cursors 

K = Differenz zwischen 
J und L (Variablen¬ 
liste) 

Die Zeilen 15 bis 22 er¬ 
möglichen den Abschlag. 
Hierbei können mit dem 
Joystick die Werte „R“ 
(seitliche Richtung- und 
„V“ (Vorwärts) verän¬ 
dert werden, was mittels 
der Unterprogramme 25 
und 27 dargestellt wird. 
Nach dem Abschlag (Zei¬ 
le 21) folgt die Berech¬ 
nung der neuen Position 
in Zeile 23. Anschließend 
läßt sich mit Hilfe der Va¬ 
riablen „TR“ die Routi¬ 
ne in Zeile 12 zur Darstel¬ 
lung des Balls an neuer 
Position nochmals ver¬ 
wenden. Jetzt findet ein 
Rücksprung zur Zeile 6 
statt, worauf ein Bild¬ 
schirmaufbau an der neu¬ 
en Stelle erfolgt. 

Wurde im Unterpro¬ 
gramm 28 (abgerufen in 
Zeile 14) festgestellt, 
daß diese das Spielfeld 
überschreitet oder daß 
ein Wasserfeld vorliegt, 
wird die alte Position wie¬ 
der übernommen. 

Falls das Zielfeld erreicht 
wurde (Zeile 6), findet 
innerhalb des Programm¬ 
abschnitts 38 bis 45 ein 
Screenwechsel zum 
„Putten“ statt. 

Die Entfernung Ball/ 

Loch wird durch Zufall 
in Zeile 38 ermittelt und 
das Loch anschließend in 
Form einer Ellipse darge¬ 
stellt, deren Abmessun¬ 
gen und Position inner¬ 
halb der Zeilen 39 bis 41 
errechnet wurden. 

Die Joystickabfrage (42 
bis 43) bezieht sich al¬ 
lein auf die Schlagkraft, 
wobei der Wert „V“ er¬ 
höht und mit Hilfe des 
Unterprogramms 27 
sichtbar gemacht wird. 

Bei Loslassen des Joy¬ 


sticks wird die neue Ball¬ 
position in Bezug auf den 
Lochabstand berechnet 
(Zeile 44) und bei fehlen¬ 
der Übereinstimmung er¬ 
neut dargestellt. 
Andernfalls wird der Bild¬ 
schirm gelöscht. Bevor 
erneut geladen wird (Zei¬ 
le 45), werden die ak¬ 
tuellen Werte angezeigt. 
Da es wegen des geringen 
Speicherplatzes nicht 
möglich war, Leerstellen 
und schwer identifizier¬ 
bare Zeichen in gewohn¬ 
ter Weise durch Stringva¬ 
riablen zu ersetzen, sind 
ein paar zusätzliche Be¬ 
merkungen angebracht: 

In Zeile 11 haben wir 
zweimal je drei Leerzei¬ 
chen, in Zeile 24 zwei¬ 
mal je zwei Leerzeichen 
vor uns. Um gar 20 Leer¬ 
zeichen handelt es sich in 
Zeile 25. Wenn Sie das 
Zeichen in Zeile 27, das 
aussieht, wie ein kleines 
Dächlein, nicht auf der 
Tastatur finden, so liegt 
das an unserem Drucker. 
Geben Sie die Pfeiltaste 
ein, die Sie auf der Tasta¬ 
tur durch Shift und 0 er¬ 
reichen. Die Anzahl der 
Leerzeichen nach dem 
Doppelpunkt beläuft 
sich auf elf. 

Das Programm GOLF- 
PLAYER.P4 unterschei¬ 
det sich nur geringfügig 
von der 16-K Byte-Ver¬ 
sion. Es ist mit Pro¬ 
grammkopf und Nach¬ 
spann versehen und um¬ 
numeriert. In Zeile 100 
werden die Variablen¬ 
zeiger richtiggestellt und 
die Routine zur Initiali¬ 
sierung bestimmter Va¬ 
riablen für Steuercodes 
aufgerufen. Die Zeilen 
120 bis 150 ersetzen die 
einzeilige Laderoutine 
der C16-Version. Bei 
Nichtvorfinden des ge¬ 
wählten Spielfeldes wird 
beim Diskettenbetrieb 
wiederholt der Spielfeld¬ 
name abgefragt. Die 
Schlußzeile der C16-Ver- 
sion wurde durch die 
Zeilen 590 bis 620 ersetzt, 
da es angehmer sein dürf¬ 
te, lediglich eine einzige 
Taste zu drücken, als den 
BAS IC-Befehl CÖNT 
zum Fortfahren im Pro¬ 
gramm einzugeben. 


VARIABLENLISTE 


Zu Listing 1: 

A = Universelle 

FOR-NEXT 
Variable 
F$() = Spielfeld 

K$ = Tastatur¬ 

abfrage 

N$ = Namensge¬ 

bung für 
Golfbahnen 
PH = Horizontale 

Cursor- 
Position 

PV = Vertikale 

Cursor- 
Position 

Zu Listing 2: 

A,B.C,D,E = Universelle 
FOR-NEXT 
Variablen 
F$() ’ = Spielfeld 

GP = Gesamt¬ 

punktzahl 
J = Horizonta¬ 

le Ball¬ 
position 

K = Differenz 

zwischen 
J und L 

L = Anfangspo¬ 

sition bei 
Spielfeld¬ 
abtastung 
M = Vertikale 

Ballposition 

N = Vertikale 

Abtastposi¬ 
tion beim 
Bildschirm¬ 
aufbau 

O = Umrech¬ 

nungswert 
für J 

P = Umrech¬ 

nungswert 
für M 

R = Seitenkraft 

RG = Gesamt¬ 

runden 

RU = Rundenzahl 

= Teilpunkte 
TR = Umschalter 

für Feld- u. 
Balldar¬ 
stellung 

V = Vorwärts- . 

Kraft 

W = Wind 

W1 = Rechen¬ 

wert zur 
Windbe¬ 
rechnung 
X = VAL-Ab- 

greif-Wert 
von F$() 

Z = Zielpunkt 
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10 rem golf-designer===========c16 <ap> 

20 rem ( p) commodore weit team <ho> 

40 rem (c) by peter bergen <pk> 

50 rem <pd> 

60 rem <ah> 

70 rem basic v3.5 <nl> 

Ö0 rem c16/116/plus4 <ki> 

100 gosub 390 <bj> 

110 color0,2,6:color1,6,4:scnclr:f 
ora=1to9:f$(a)="666666666666666666 
66”:next <np> 

120 fora=10to16:char1,10,a,rn$+b$+ 
rf$:next < ig > 

130 charl,7,2,bk$+"joystick (1) oh 
ne fire =":color1,6,4:char1,32,2,r 
n$+" " + rf $ <if> 

140 charl,7,4,bk$+"joystick (1)"+b 
2$f"mit fire =":color1,7,2:char1,3 

2,4,rn$+" " + rf$ <bl> 

150 charl,7,6,bk$+"s = save / e = 
ende" <fl> 

160 ph=1:pv=1:gosub300 <om> 

170 ifjoy(1)=3andph<20thengosub310 
:mid$(f$Cpv),ph,1)="6":ph=ph+1:gos 
ub300 <^c> 

180 ifjoy(1)=7andph>1thengosub310: 
niid$( f$C pv) , ph, 1)-"6":ph-ph-1 :gosu 
b300 <™> 

190 ifjoy(1)-131andph<20thengosub2 
90:mid$(f$(pv),ph,1)-"7":ph=ph+1:g 
osub2O0 <mm> 

200 ifjoy(1)=135andph>1thengosub29 
0:mid$Cf$(pv),ph,1)="7":ph-ph-1:go 
sub2O0 <Pg> 

210 ifjoy(1)=5andpv<9thengosub310: 
mid$(f$(pv),ph,1)="6":pv=pv+1:gosu 
b300 < ij > 

220 ifjoy(1)=1andpv>1thengosub310: 
mid$(f$(pv),ph,1)="6":pv=pv-1:gosu 
b300 < ej > 

230 ifjoy(1)=133andpv<9thengosub29 
0:mid$(f$(pv),ph,1)="7":pv=pv+1:go 
sub280 <hf> 

240 ifjoyt1)=129andpv>1thengosub29 
0 : inid$( f$[ pv) , ph , 1) = "7" : pv=pv-1 : go 
sub280 <ja> 

250 poke239,0:getkeyk$:ifk$="s"the 
n340 <gn> 

260 if k$ rr "e"thenscnclr :color 1 , 1 : st 
op <kl> 

270 goto 170 <ka> 

280 colorl ,7,2 : got.o320 <jm> 

290 colorl,7,2:goto330 <hl> 

300 colorl,6,4:goto320 < gj > 

310 colorl,6,4:goto330 <jl> 


320 char 1,ph+9,pv+9,rn$+"*"+rf$:re 


turn <bc> 

330 charl,ph+9,pv+9,rn$+" ”+rf$:re 
turn <ea> 

340 charl,0,22,bk$:print"Spielfeld 
bezeichnung (max.12 Zeichen)"b2$;: 
inputn$ < ji > 

350 iflenCn$)>12then340 <kp> 

360 g=peek(174) <ol> 

370 ifg=8thenn$=n$+",s,w" <mf> 

380 open!,g,g,n$:fora=1to9:print#1 
,f$(a):nextrclosel:goto110 <ag> 

390 rem nachspann ================ <oc> 

400 rem * farbcodes/Steuercodes * <hl> 
410 rn$=chr$(018):bk$=chr$(144) <fl> 
420 rf$=chr$(146):b$=chr$(32) <he> 

430 b2$-b$+b$:b$=b2$:fori=1to9 <ee> 
440 b$=b$+b2$:next:return <lg> 

460 rem 12277 bytes memory <kb> 

470 rem 01710 bytes program <mn> 

480 rem 00063 bytes variables <gi> 

490 rem 00040 bytes arrays <gc> 

500 rem 00551 bytes strings <ec> 

510 rem 09913 bytes free (0) <ha> 

520 rem ========================== <cm> 


GOLF-PLAYF.R . R Q 


10 rem golf-player=========“===p4 <fc> 

20 rem (p) commodore weit team <ho> 

30 rem =========================== <ng> 

40 rem (c) by peter bergen <pk> 

50 rem <pd> 

60 rem <ah> 

70 rem basic v3.5 <nl> 

80 rem plus4 (c16/116 + 64 kb) <fd> 

90 rem =========================== <jg> 

100 graphicl,1:clr:graphic0:gosubö 
50 <cl> 

110 scnclr:gp=0:vol5:a=rnd(1)—ti:i 
nput"runden";rg <og> 

120 g = peek( 174) : if g=1 tlienopen 1 ,1,0 
:input#1,f$:goto150 <fj> 

130 input"Spielfeldname";na$ <aj> 

140 openl,8,8,na$+",s,r":f$="":inp 
ut#l ,f$: iff$=""thenclose1 : goto 130 <f j> 
150 f$(1)=f$:fora=2to9:input#1,f$( 
a):nexticlosel:color4,2,6 <gh> 

160 data20,30,143,2,10,23,115,3,8, 
18,91,4,10,14,69,5,7,10.5,54,7,5,8 
.4,41,9 <kh> 

170 data18,6.2,31,10,28,4.75,24,11 <hn> 
180 tp=0:scnclr:m=1:j=int(rnd( 1)*9 
)+1:z=int(rnd(1)*9)+1 <eo> 

190 ifj=zandm=20then510 <hc> 
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<mb> 


200 mid$(f$( j) , 1 , 1)= H 6":mid$(f$( z) 

,20,1}--"6":tr=1 <ii> 

210 color0,7,2:color1,6,4:oolor2,7 
,2:color3,2,6:graphic3,1 <nd> 

220 fora=-340to500step40 : draw2,80, 

0toa,200:next <ec> 

230 b-40: c:=235: d=5: f ora-1 to 1 1 : c=c- 
b:draw2,0,cto159,c:d-d-.23:b=b-d:n 
ext:tr=l <hl> 

240 fora=0to24:char3,0,a,b3$,1:cha 
r3,37,a,b3$,1:next <pc> 

250 restöre:ford=0to7:reada,b,c,k: 
n=m+d:1=j-K:fore=ato160stepb <ld> 

260 iftr=1thengnsub440:elsegosub48 
0 <ao> 

270 1=1+1:next:next:iftr=2thengosu 
b410:goto190 <ik> 

280 r~0: v=0:w=int.( rnd( 1) *15) -7:gos 
ub3B0:gosub400 <ae> 

290 b=40:e=80:c=145:gosub500:tr=2 <jg> 
300 ifjoy(1)=3andr<80thenr=r+2:gos 
ub380 <ic> 

310 ifjoy(1)=?andr>-B0thenr=r-2:go 
sub380 <og> 

320 ifjoy( 1)=1andv<80thenv=v+2:gos 
ub400 <bh> 

330 ifjoy(1)=5andv>0thenv=v~2:gosu 
b40B <dd> 

340 ifjoy(1)=128then360 <gd> 

350 goto300 <jh> 

360 r=r/8:v=-v/10:w1=w/ 12*abs( r) :o= 
j + int(r+wl+w/20*v+.5):p=m+int( v-( v 
*(abs(w)/40)) + .5) < P e> 

370 tr=2:char1,19,17,b2$,1:char1,1 
9,18,b2$,1:tp=tp+1:goto250 <io> 

380 cliarl, 4,23, "< : "+h$+b$+" : >" , 1 :d 
raw2,r/2+64,185tor/2+64,190 <dl> 

390 draw2,w*4+62,188tow*4+66,188:r 
eturn <in> 

400 charl ,4,21 ,chr$( 94) + " : "+b$,1: 
draw2,v/2+24,169tow/2+24,174:retur 
n <eb> 

410 ifo<1oro>9orp>20thenreturn <ci> 

420 ifmid$Cf$(o),p,1)="7"thenretur 
n <dl> 

430 j=o:m=p:return <dh> 

440 if1<1orl>9orn>20then470:elsex= 
val(mid$(f$(1),n, 1)) <oi> 

450 ifx=6thenpaint1,e,c,1 <dm> 

460 ifl=zandn=20thendraw3,e,ctoe,c 

<eo> 

470 return <dn> 

480 ifo=landp=nthengosubS00 <hp> 

490 return <gf> 

500 circle3,e,c,int(b/15+.5)rpaint 
3,e,c:return <ok> 

510 color0,6,2:m=int(rnd(1)*8)+1 <in> 
520 scnclr:v=0:gosub400:b=40:c=195 


:d=6:fora-1to8:c=c-b 
530 ifa=mthencircle3,90,e,h/2,b/4: 
paint3,90,c <pd> 

540 d =s d-.23:b=int( b-d+.S) :next:b=6 
0:e-90:c=190:gosub508 <he> 

550 ifjoy(1)<>1then550 <kg> 

560 ifjoy[1}=1andv<80thenv=v+1:gos 
ub400:gotoS60 <dd> 

570 tp=tp+1:v=int(v/8+.5):ifv=mthe 
n580:e1sex=m-v:m=abs(x):goto520 <fn> 
580 graphic0,1:gp^gp+tp:ru=ru+1:pr 
int, c4$c4$r:4$ ;"tp:";tp,"gp: ,, ;gp,"r 
u:";ru <ca> 

590 poke239,0:print:ifru<>rgthen12 

® < jg > 

600 print. ”wei ter mit leertaste" <ed> 

610 geta$:ifa$<>" "then610 <nd> 

620 rg=rg+1:goto180 <mg> 

630 rem nachspann====----===-==--= <hi> 
640 rem * färb- und Steuercodes * <ai> 
650 c4$=chr$C17):b$=chr$( 32) <cf> 

660 b2$-l)$+b$:b3$=b2$+b$ <nd> 

670 b$=b3$+b3$+b2$+b2$:return <kd> 

680 rem < cc> 

690 rem 60671 hytes memory <bi> 

700 rem 02360 bytes program <fb> 

710 rem 00196 bytes variables <nm> 

720 rem 00040 bytes arrays <ha> 

730 rem 00567 bytes strings <dg> 

740 rem 45220 bytes free (0) <eb> 

750 rem 12288 bytes graphic <kd> 

760 rem <jf> 


GULF — PLAYER . G 1 *5 

1 scncIr:gp=0:vol5:a=rnd(1) ti:inp 

ut."runden"; rg : g$-chr$( 17) <dj> 

2 openl,1,0:fora=1to9:inputjjM,f$(a 

) :nextrolosel:color4,2,6 <ob> 

3 dal.a20,30,143,2, 10,23, 1 15,3,8, 18 

,91,4,10,14,69,5,7,10.5,54,7,5,8.4 
»41,9 <jd> 


4 data18,6.2,31,10,28,4.75,24,11 <ig> 

5 tp=0:scnclr:m=1:j=int(rnd(1)*9) + 

1:z=int(rnd(1)*9)+1 < do > 

6 ifj=zandm=20Lhen38 <j m > 

7 mid$(f$(j),1,1)="6":mid$(f$(z),2 

0,1)= "6":tr=1 < eb > 

8 color0,7,2:color1,6,4:color2,7,2 

:color3,2,6:graphic3,1 <op> 

9 fora=-340to500step40:draw2,80,0t 

oa,200:next <hj> 

10 b=40:c=?35:d=5:fora=1to1 1 :c:=c-b 
:draw2,0,cto159,c:d=d-.23:b=b-d:ne 

xt: tr = 1 < gln> 

11 f ora=0to24:char3,0,a," ",1:ch 

ar3,37,a," ",1:next < ij > 

12 restore:ford=0to7:reada,b,c,k :n 

=m+d:1=j-k:fore=ato160stepb <mn> 
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•3 iftr~ 1 thengosub.31 :elsegosub35 <lb> 

1 l--l + 1 :next: next: iftr= 2 lhengosub 
• 8 :goto 6 < g n> 

5 r- 0 :v-0:w~int(rnd( 1)* 15)-7:gosu 
:25:gosub27 < gg > 

8 b~40:e-80:c=145: gosuh37: t.r =2 <nh> 

•7 ifjoy( 1) "3andr<80tlienr=r+2:gosu 
j ?5 <ck> 

*8 ifjuy(1)=7andr>-80thenr=r-2:gos 
ib25 <oi> 

'9 ifjoy( 1 )^1andv<80thenv=v+2:gosu 

d27 <c J > * 

20 ifjoyt 1 )=5andv>0thenv=v-2:gosub 

27 <ak> 

21 ifjoy(1)=128then23 <ki> 

22 goto17 <ha> 

23 r=r/ 8 :v = v/ 10 :w 1 =w/ 12 *abs( r) :o=j 
♦ int( r+wHw/20*v + .5) :p=m+int( v-( v* 

(abs(w)/40)) +. 5) <ej> 

24 tr=2:char1,19,17," ",1:char1,1 

9,18," " , 1 :tp = tp+ 1 :goto 12 <jj> 

25 charl,4,23,"<: 

1:draw2,r/2+64,18Stor/2+64, 

190 <Km> 

26 draw2,w"4+62, 188t.ow*4+66,188:re 

turn <d J > 

27 charl,4,21,: ",1:dr 

aw2, u/2+24,169l.ow/2+24,174:return <kt:> 

28 ifo< 1 oro> 9 orp> 20 thenreturn <hi> 

29 ifmid$(f$(o),p, 1 )="7"thenreturn <ni> 

30 j-o:m-p:return <kb> 

31 ifl<1orl> 9 orn> 20 tben 34 :elsex=wa 

1 ( m ul$( f $( Lj , n , 1 }) <kl> 

32 ifx- 6 i henpaint 1 ,e,c ,1 <no> 

33 if 1 -zandn= 20 t hendraw3, e,c:t.oe ,c- 

b <hf> 

34 return <nc> 

3b ifo--landp-nthengosub37 <bo> 

36 return <n g > 

37 circle3,e,c,int(b/15+.5J:paint3 

,e,c:return <L>P> 

38 colnr 0 , 6 ,2:m~int( rnd( 1) - 8 J +1 <pu> 

39 scnolr : v -0 : gosuti? /:b—40:c—19b -d 

■•• 6 : f ora- 1 to 8 : c=c-b < J a> 

40 ifa-n»tl»ericircle3,!jMB f ti,b/2,b/4:p 

aint3,90,c <cb> 

41 d=d-. 23 :b-int(b-d+.5):next:b=60 

:e=90:c=190:gusub37 <nc> 

42 ifjoy(1)<>1then42 <&g > 

43 ifjoyC1)= 1 dndv< 80 thenv=w+ 1 :gosu 

b27:goto43 <aa> 

44 tp-tp+1 : v-int( v/8+ .5) : if v~mthen 

45: elsex-m-v:m^absCx):goto39 <ee> 

45 graphicB,1:gp"gp+tp:ru-ru+l:pri 
i‘t,g$g$g$;"tp:";tp,"gp:";gp,"ru:"; 

ru <Kri> 

46 poke239,0:ifru=rgthenstop:rg-rg 

+ 1 :goto5:else2 <hd> 
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KOPIERPROGRAMM 


DISK-TO-TARE 


Von Diskette 
auf Kassette ? 
Kein Problem! 

Wer Programme erstellt hat und diese auf 
Kassette vertreiben will, steht vor dem Problem, wie 
er die Kassetten kopieren soll. Das Hi Fi-Kassetten¬ 
deck mit zweiten Laufwerk ist nicht 
die wahre Lösung. 


Signale vom Kassetten¬ 
rekorder unterscheiden 
sich etwas von den direkt 
aus dem Computer kom¬ 
menden Signalen. Dies 
führt zu Qualitätseinbu¬ 
ßen bei den kopierten 
Kassetten. Bei etwas de- 
justiertem Tonkopf sind 
sie bereits nicht mehr zu 
lesen. Spezielle Kopier¬ 
geräte für Computerkas¬ 
setten sind nahezu uner¬ 
schwinglich. Die beste 
Methode ist es, die Pro¬ 
gramme von Diskette in 
den Computer einzulesen 
und dann auf die Kasset¬ 
te abzuspeichern. 

Mit der Hand, jedes Pro¬ 
gramm einzeln, ist dies 
freilich viel zu mühsam. 


PRG- UND SEQ-FILES 


Das Programm DISK-TO- 
TAPE greift auf ein se¬ 
quentielles File zu, das 
die Namen der zu kopie¬ 
renden Files enthält. Es 
können Programme und 
sequentielle Files kopiert 
werden. Beim normalen 
Hereinladen und Spei¬ 
chern von Maschinenpro¬ 
grammen mit LOAD 
“FILENAME“,8,1 und 
SAVE“FILENAME“ 
wird der ganze Bereich 
vom BAS IC-Anfang bis 
zum Programmende ge¬ 
speichert. Ein kurzes Ma¬ 
schinenprogramm, das 
den Bereich von $3E00 
bis $3FFF in Anspruch 
nimmt und nur 512 Byte 
lang ist, würde auf der 
Kassette plötzlich zwölf 
KByte in Anspruch 
nehmen. 


DISK-TO-TAPE verstellt 
in so einem Fall die 
SAVE-Anfangsadresse 
und sorgt damit für die ge¬ 
ringste Länge. Beim Ein¬ 
laden weist der Lade-Zei¬ 
ger auf eine Adresse in 
den System-Pages, ab wel¬ 
cher drei Nullen abgelegt 
sind. Ein Erzeugen von 
Linkadressen im Maschi¬ 
nenprogramm, in der irri¬ 
gen Annahme, es handle 
sich um ein BASIC-Pro- 
gramm, wird so verhin¬ 
dert. 

Das Einladen und Abspei¬ 
chern geschieht mit den 
ganz normalen Lade- und 
Speicherbefehlen, die ein 
vorliegendes BASIC-Pro- 
gramm üblicherweise 
überschreiben. DISK-TO- 
TYPE aber kann sich ret¬ 
ten. Es besteht nämlich 
aus fünf Teilen: dem 
BASIC-Programm. Ma¬ 
schinencode in Adressen 
der Systempages, dem 
Inhaltsverzeichnis ganz 
oben im Speicher, den 
auszuführenden Befehlen 
im Funktionstastenpuf¬ 
fer und einem weiteren 
Teil, der die Rettung er¬ 
möglicht. 


KLIMMZÜGE 


Ein SYS-Aufruf auf eine 
Maschinenroutine legt 
eine Kopie des BASIC- 
Programmes ganz oben 
im Speicher an. Beim La¬ 
den wird DISK-TO-TAPE 
im Regelfall überschrie¬ 
ben, sofern es sich nicht 
um ein Maschinenpro¬ 
gramm an höherer Adres¬ 
se oder ein sequentielles 
File handelt. Im Direkt- 


100 sys58253:sys58288:poke55,0:pok 


e56, 

246 :c 

:lr 



<lb> 

1 10 

keyl, 

"":key2, H ":key3, 

" ": k 

ey4," 


":key5, M " 

':key6,” M :key7, 

:key8, M " 

<md> 

120 

f ori = 

312to375 



<k 1 > 

130 

reada:pokei,a:next 



<gP> 

140 

data 

169,016,162,001, 

134, 

043 

<ff> 

150 

data 

133,044,133,217, 

134, 

216 

<nf > 

160 

data 

134,218,162,250, 

134, 

219 

<nn> 

170 

data 

160,000,162,002, 

096, 

032 

<ah> 

180 

data 

056,001,169,218, 

032, 

148 

<ha> 

190 

data 

004,145,216,200, 

208, 

246 

<jd> 

200 

data 

230,217,230,219, 

202, 

208 

<kj> 

210 

data 

239,076,075,136, 

032, 

056 

<ke> 

220 

data 

001,177,216,145, 

210, 

200 

<fo> 

230 

data 

208,249,230,217, 

230, 

219 

<ig> 

240 

data 

202,208,242,096 



< jh> 

250 

f or i- 

1015to1074 



<cg> 

260 

reade 

i:pokei,a:next 



<ge> 

270 

data 

104,201,167,208, 

026, 

197 

<dd> 

280 

data 

216,240,022,169, 

167, 

133 

<ag> 

290 

data 

216,165,157,133, 

180, 

165 

<jk> 

300 

data 

158,133,181,169, 

026, 

133 

<JP> 

310 

data 

043,169,004,133, 

044, 

169 

<ng> 

320 

data 

167,072,076,101, 

242, 

000 

<gm> 

330 

data 

000,000,165,180, 

133, 

178 

<kf > 

340 

data 

165,181,133,179, 

076, 

164 

<cm> 

350 

data 

241,169,247,141 , 

038, 

003 

<ga> 

360 

data 

169,003,141,039, 

003, 

096 

<aa> 

370 

f ori = 

: 1630to1658 



<ip> 

380 

reada:pokei,a:next 



<he> 

390 

data 

162,001,032,201, 

255, 

162 

<pa> 

400 

data 

008,032,198,255, 

032, 

207 

<ld> 

410 

data 

255,170,032,183, 

255, 

208 

<pi> 

420 

data 

007,138,032,210, 

255, 

024 

<eo> 

430 

data 

144,240,076,204, 

255 


<hk> 

440 

sys 1064:poke816,29:poke817,4 

<od> 

450 

scnc ] 

Lr:input"kassette 

; nr. 


<gn> 

460 

open8,8,8,"cass"+chr$( a+48)+", 


s,r’ 

f 




<f 1> 

470 

ax=62992 



<pk> 

480 

input#8,a$ 



< in> 

490 

f ori = 

; 1 tolenfa$) :x$^mi 

d$(a$,i,1 


) :gosub520:next:x$^chr$(1 

13) :gosub5 


20 





<ed> 

500 

if a$< 

»>"#"then480 



<1 n> 

510 

close8:goto530 



<di> 

520 

pokeax,asc(x$):ax=ax+1 : re 

■turn 

<lb> 

530 

puke62990,16:poke62991,246 

<fk> 

540 

key4, 

"deL-550 M +x$+ M sy 

r s358 

I" + x $ + 


"run"+x$ 




<nd> 

550 

poke2035,3:sys56364:end 


<PP> 

560 

sys58253:sys58288:clr 



<kd> 

570 

a$="":ax=256*peek( 62991) + 

peekf 


62990) 




<bd> 

580 

a=peek(ax):ax=ax+1 



<cc> 


590 ifa<>13f;hena$=rt$+chr$( u) :goto5 
50 <ad> 

500 ah-int( ax/256) : al=ax-256*ah <ac> 
510 poke62990,al:poke62991,ah:x$=c 
nr$( 13) <ap> 

520 ifa$="#"then670 <nk> 

530 ifleft$(a$,l)="ß"then690 <jj> 

640 a$-chr$(34)+a$+chr$( 34) <fp> 

650 b$="10 M +a$+",8,1 " + x$+"sA" + a$+" 

, ^ , ^x$ + ,, sys335” + x$ + M pO4096,0 ,, + x$+ ,, 
run"+x$ <ai> 

660 key4,b$:poke2035,3:sys56364:en 
d <hj> 

670 poke62990,16:poke62991,246:vol 
8 <oj> 

680 fori=400to1000step4:sound1,3,1 
:next:sound3,700,50:end <hd> 

690 printa$:a$~right$(a$,len(a$)-1 
) <pd> 

700 openB,8,8,(a$+",s,r") <pb> 

710 open1,1,1,a$ < jn> 

720 sys 1630 <cm> 

730 closeB:dose 1:run < 1 j> 


modus wird neben den 
zum Kopieren erforderli¬ 
chen Befehlen aber noch 
ein SYS-Aufruf bearbei¬ 
tet. Dieser kopiert das 
Backup von DISK-TO- 
TYPE wieder an den 
BASIC-Anfang, wo es 
zum Wiederaufruf zur 
Verfügung steht. Beim 
dann erfolgenden Start 
wird nicht etwa dasselbe 
File neu kopiert, sondern, 
da ein Zeiger stets für die 
richtige Abarbeitung 
sorgt, das jetzt an die 
Reihe kommende. 

Ist alles kopiert, infor¬ 
miert ein Soundsignal 
darüber. Der Zeiger zum 
Lesen des Inhaltsverzeich¬ 
nisses weist wieder auf 
den Anfang. Beim erneu¬ 
ten Aufruf des Kopierpro¬ 
grammes werden wieder 
dieselben Files kopiert. 
Beim ersten Aufruf exi¬ 
stierte noch eine Abfrage, 
die sich aber nach dem 
Einlesen des Inhaltsver¬ 
zeichnisses von Diskette 
selbst gelöscht hat. 

Die zu kopierenden Files 
sind vor der Inbetriebnah¬ 
me des Kopierprogram¬ 
mes in einem sequentiel¬ 
len File namens CASSO 
bis CASS9 zu speichern. 
Das Kopierprogramm 
fragt am Anfang nach der 
Kassettennummer. Die 


Eingabe einer Zahl von 
null bis neun veranlaßt 
den Rechner, CASSO 
oder das entsprechende 
Verzeichnis zu laden. 
Dieses kann mit Script- 
Plus oder auch in BASIC 
erstellt werden mit: 

OPEN8,8,8,“CASSO,S,W“ 
PRINT#8,“FILE-BAS“ 
PRINTt?8,“FILE-MC“ 
PRINT#8,“@FILE-SEQ“ 
PRINT#8,“#“ 

CLOSE8 

BASIC- und Maschinen¬ 
programme-werden gleich 
behandelt. Sequentielle 
Files sind mit einem 
Klammeraffen als solche 
zu markieren. Das Raute- 
Zeichen signalisiert das 
Ende des Verzeichnisses. 
Wer ein Relais bastelt, 
mit dem sich mehrere 
Datasetten anschließen 
lassen, kann in einem ein¬ 
zigen Kopiervorgang 
gleich einen ganzen Satz 
von Kassetten hersteilen. 
Bevor nach dem Kopie¬ 
ren wieder von Hand et¬ 
was geladen werden soll, 
ist die Reset-Taste zu 
drücken, da durch den 
verstellten Ladezeiger 
sonst wichtige System¬ 
adressen überschrieben 
werden. Das würde zu ei¬ 
nem Absturz führen. □ 


Und sie 
passen doch S 

Wie in dem bekannten Lied von den zwei 
Königskindern, die nicht zusammen kommen konn¬ 
ten, ergeht es einem, wenn man seine Computer 
an einen Monitor oder ein Fernsehgerät anschließen 
will. Denn vor das Bild auf der Mattscheibe hat 
der Hersteller der Geräte einige Fragezeichen gesetzt. 


Hat man beim Händler, der einem den Monitor oder 
Computer verkauft hat, keine Komplettlösung (Com¬ 
puter, Monitor und Kabel) erstanden, wird es recht 
schwierig, seine Geräte miteinander zu verbinden. 
Schaut man sich die entsprechenden Rückseiten an, 
wird einem manchmal schwindelig ob der Vielzahl 
der verschiedenen Anschlußbuchsen. Da gibt es runde, 
eckige, trapezförmige und dergleichen mehr. Selbst 
wenn die Stecker mechanisch zueinander passen, 
kann die elektrische Verbindung ganz anders sein. 
Anscheinend handeln manche Hersteller nach dem 
Motto „Mal sehen, was wir für Stecker auf Lager ha¬ 
ben“ und bauen diese dann ein. Auch den Anschluß 
handhaben manche nach Gutdünken. Wir haben uns 
umgesehen und für Sie zusammengetragen, was es 
für Stecker und Buchsen an den Geräten gibt. 


DER RICHTIGE STECKER 


Wenn wir die Commodore-Computer VC-20 oder ei¬ 
nen älteren C64 betrachten, fällt auf, daß diese Gerä¬ 
te eine fünfpolige DIN-Buchse besitzen, wogegen die 
neueren C64er mit einer achtpoligen ausgestattet sind. 
Diese Buchsen findet man auch am CI6/116. Plus/4 
und am PC 128 (40 Z.). Wie sie belegt sind, können Sie 
den Zeichnungen entnehmen. 


DIE ANSCHLÜSSE 


Auf der Monitorseite sieht die Sache bereits anders 
aus. Hier gibt es einpolige Cinchbuchsen, sechs- oder 
achtpoüge DIN-Buchsen, neunpolige Sub-D-Buchsen 
oder achtpolige Honda-Stecker, Scart-Buchsen und 
was dergleichen mehr auf dem Markt angeboten wird. 
Hier eine einheitliche Anschlußbelegung zu finden, ist 
nicht einfach. 

Nachstehend finden Sie eine Auswahl der gängigsten 
Steckverbindungen, die Sie an Ihrem Computer bezie¬ 
hungsweise Monitor finden können. Anschließend ha¬ 
ben wir die Verbindungen zusammengetragen, die es 
ermöglichen, Ihren Commodore-Computer mit Ihrem 
Monitor zu verbinden. 


WIE GEHT'S NUN? 


An Ihrem Monitor werden Ihnen die unterschiedlich¬ 
sten Buchsen auffallen, von denen anscheinend auch 
die Hersteller nicht genau wissen, wozu sie da sind. 
Wie sollte man es sich sonst erklären, daß einige Pro¬ 
duzenten keine passenden Kabel liefern können, be¬ 
ziehungsweise es nicht für nötig halten, die Anschluß¬ 
belegung in den Betriebsanleitungen abzudrucken? 
Bei der Vielzahl der möglichen Verbindungen werden 
Sie eventuell Probleme haben, bei Ihrem Computer- 
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Kor taktbe1egung bei Scart-Steckern 
nach der Europäischen Nor» 

AV(Audio/Video)-Buchse 
Stift 1 Audio-Ausgang(rechter Kanal) 

Stift 2 Audio-Eingangtrechter Kanal) 

Stift 3 Audio-Ausgangdinker Kanal) 

Stift 4 Masse-AnschluB Aud io 
Stift 5 Masse-Anschluß B-Eingang 
Stift 6 Audio-Eingang(linker Kanal) 

Stift 7 Video-Eingang Blau 
Stift 8 Schaltspannung +12Volt 
Stift 9 Masse-AnschluB G-Eingang 
Stift 10 Takt-Eingang 
Stift 11 Video-Eingang Grün 
Stift 12 Daten-Eingang 
Stift 13 Masse-Anschluß R-Eingang 
Stift 14 Masse-Anschluß Daten-Eingang 
Stift 15 Video-Eingang Rot 
Stift 16 Austastsignal 
Stift 17 Masse-Anschluß FBAS 
Stift 18 Masse-Ansch1uß Austastsignal 
Stift 19 FBAS-Ausgang 
Stift 20 FBAS-Eingang 
Stift 21 Anschluß für Abschinung 

händler die passenden Kabel zu erhalten. Hier ist 
Selbsthilfe angebracht. Bei einigen Kabeln dürfte dies 
nicht so schwierig sein, vor allem, wenn es sich nur um 
wenige Verbindungen handelt. Einige andere werden 
es Ihnen nicht so einfach machen. Um zum Beispiel 
den Amiga an ein Fernsehgerät mit Scartbuchse oder 
den PC 128 im RGB-Modus an den entsprechenden 
Monitor anzupassen, bedarf es einiger Kenntnisse der 
Steckerbelegung beider Geräte. 

Für alle anderen Fälle gibt es folgende Möglichkeiten: 
Sie senden der COMMODORE-WELT-Redaktion die 
Angaben über Ihre Computer- und Monitortypen 
(eventuell Fotokopie der Steckerbelegung aus der Be¬ 
dienungsanleitung) mit einem Freiumschlag zu. Wir 
werden versuchen, eine Möglichkeit zu finden, wie Sie 
Ihren Computer mit dem Monitor verbinden können. 
Wir teilen Ihnen auf Anfrage Adressen von Firmen mit, 
die sich speziell mit dieser Materie beschäftigen. 

DIE RICHTIGE VERBINDUNG 



Nachdem das Problem der richtigen Stecker gelöst 
wäre, kommt das Kabel ins Spiel, nämlich das zwi¬ 
schen den Steckern. Es spielt nicht mal die Zahl der 
Adern eine Rolle, sondern deren richtige Belegung im 
Stecker. Nachstehend haben wir die am meisten ver¬ 
wendeten Verbindungen aufgezeichnet. Bei einigen 
Geräten, auch von gleichen Herstellern, werden große 
Unterschiede deutlich. Allein beim Anschluß des PC 
128 im 80-Zeichen-Modus ergeben sich mehr als fünf 
verschiedene Anschlußmöglichkeiten, die mehr oder 
weniger vom verwendeten Monitor abhängig sind. 

Bild (1) zeigt die Belegung bei der Verwendung eines 
RGB-Monitors mit neunpoliger Buchse. Hier spielt 
der PC 128 natürlich seine volle Leistungsfähigkeit 
hinsichtlich der Auflösung und der Farbe aus. Das¬ 
selbe Ergebnis erreicht auch die Belegung nach Bild 
(6). Nur wird hier auf der Monitorseite eine achtpoli- 
ge RGB-Buchse nach DIN 45326 verwendet. 


PC 

DB 9 (RGB) C128,PCs 

\ 1 2 3 4 5 1 

\ o o o o o / 

V e 0 7 0 e°P / 

128/80 Zeichen 

Stift 

1 Masse 

Stift 

2 Hasse 

Stift 

3 Digital Rot 

Stift 

4 Digital Grün 

Stift 

5 Digital Blau 

Stift 

6 Intensität 

Stift 

7 Monochroi Signal 

Stift 

8 Horizontale Synchron. 

Stift 

9 Vertikale Synchron. 


OB 9 (RGB) C128,PCs 



Verbi»(u» 9 slistn für v»r«hi*«ene 6frite 


Ho*itor 

RSB-Iisitll 9pol. 


Computer 

PC 128/80 Zricken 

1 

2 

3 

4 

5 

6 

7 

8 
9 


OB 9 (RGB) C128,PCs 



Bild 1: Anschluß eines RGB-Digital-Monitor mit neunpoliger 
Anschlußbuchse an den PC 128 im 80-Zeichen-Modus. 



Bild 2: Verbindung des C64/C16/C116/PC 128 und Plus4 über 
das FBAS-Signal mit einem Monitor (Fernseher) mit sechspoli- 
ger DIN-Buchse. 



Bild 3: Verbindung des C64/C16/CI 16/PC 128 und Plus4 über 
das FBAS-Signal an einem Monitor (Fernseher) mit Scart- 
Buchse. 
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Bild 4: Verbindung des C64/C16/CI 16/PC 128 und Plus 4 an 
einem Monitor mit getrennten Helligkeits- und Farbsignalen. 



Bild 5: Verbindung des C64/C16/CI 16/PC 128 und Plus4 über 
das FBAS-Signal mit einem Monitor mit Cinch-Buchsen. Eben¬ 
so wird auch ein Monochromer-Monitor angeschlossen. 



Bild 6: Anschluß eines RGB-Digital-Monitors mit achtpoliger 
DIN-Anschlußbuchse an den PC 128 im 80-Zeichen-Modus. 


Honochro* Moni. PC128/80 Zeichen 

1 - 1 

2 - 7 

DB 9 (RGB) C128,PCs 



Bild 7: Anschluß eines monochromen Monitors im 80-Zei- 
chen-Modus des PC 128. 



C64,128.Plus/4,C16 


C64,128,Plus/4,C16 



/<*> 

(•' £ © j 





vLy 

C64,Plus/4,C16/116 


PC 128/40 Zeichen 

Stift 1 Luiinanz 


Stift 1 Luiinaz 

Stift 2 Masse 


Stift 2 Hasse 

Stift 3 Audio aus 


Stift 3 Audio aus 

Stift 4 FBAS 


Stift 4 Video aus 

Stift 5 Audio eir. 


Stift 5 Audio ein 

Stift 6 Chroiinanz 


Stift 6 Chroiinaz 

Stift 7 nicht benutzt 


Stift 7 Nicht benutzt 

Stift 8 nicht benutzt 


Stift 3 *5 Volt 




VC20^64 alt 


VC20.C64 alt 




\ 1 / 


\ 3 / 

C64 ältere Ausführung 


VC-20 

Stift 1 Luiinanz 


Stift 1 ♦6 Volt 

Stift 2 Hasse 


Stift 2 Hasse 

Stift 3 Audio aus 


Stift 3 Audio aus 

Stift 4 FBAS 


Stift 4 Video Loh 

Stift 5 Audio ein 


Stift 5 Video High 


Dabei findet allerdings keine Übertragung des Ton¬ 
signals statt. Diese muß über ein zusätzliches Kabel 
oder durch ein Kombikabel für Bild und Ton erreicht 
werden. Für letzteres wird wahrscheinlich nur der 
Selbstbau übrig bleiben. 

Besitzt der Monitor (Fernseher) eine Scartbuchse, ist 
die Übertragung recht einfach. Hier wäre sogar ein 
Anschluß auf RGB-Basis (80 Zeichen) möglich. Ob¬ 
wohl der PC 128 nur digitale Signale zur Verfügung 
stellt, können durch Einlöten von Widerständen die 
Signale gebändigt werden. Den Anschluß für Bild¬ 
ung Tonsignale im 40-Zeichen-Modus entnehmen Sie 
dem Bild (3). 

Die Bilder 2, 4 und 5 zeigen den Anschluß Ihres Com- 
modore-Computers an Monitore, die mit Cinch-Buch¬ 
sen ausgerüstet sind. Dies ist häufig bei Original-Com- 
modore-Monitoren der Fall.-Alle Belegungen der Bil¬ 
der 2, 3, 4 und 5 gelten analog auch für die Compu¬ 
ter C64/C16/C116 und Plus4. Natürlich muß zwi¬ 
schen einem alten und einem neueren C64 unterschie¬ 
den werden. 

Bild (7) zeigt den Anschluß des 128er an einen mono¬ 
chromen Monitor im 80-Zeichen-Modus. 

Eine Besonderheit stellt der Computerklassiker VC-20 
dar, weil an der Videobuchse auch noch eine Span¬ 
nungsversorgung für den Fernsehmodulator anliegt. 
Hier weicht die Belegung von der sonstigen Commo- 
dore-Norm ab. □ 
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Hatte bisher unser . 
Checksummer an Buch¬ 
stabenvertauschungen 
nichts auszusetzen, so 
zeigt er sich nun nicht 
mehr so kulant. 

Ob Sie mit der alten 
Version nun eingegeben 
hatten: 

10 print ”ab” 
oder 

10 print “ba”, 

der Checksummer 
brachte in beiden Fällen 
die Prüfsumme < gk > . 
Leicht kann es Vorkom¬ 
men, daß beim schnel¬ 
len Tippen, besonders 
im Zehnfingersystem, 
die Taste, die eigentlich 
erst als übernächste dran¬ 
kommen sollte, ein wenig 
zu früh erwischt wird. 
Dem Checksummer, der 
lediglich die Ascii-Werte 
der Buchstaben addierte, 
konnte dieses natürlich 
nicht auffallen. Was also 
tun? Ob etwas früher oder 
später addiert wird, än¬ 
dert nichts am Resultat 
der Summe. Anders ist 
es, wenn man zwei Ver¬ 
knüpfungsarten kombi¬ 
niert. So ist z.B. 2*30+40 
etwas anderes als 2*40+ 
30. Und genau dieses war 
dann die Lösung. Die 
Summe wird nun einfach 
durch eine Linksver¬ 
schiebung vor jeder Addi¬ 
tion verdoppelt. Da¬ 
durch, daß im Falle, 
wenn das Ergebnis größer 
als 255 ist, der dabei ent¬ 
stehende Übertrag als 
Wert 1 zusätzlich addiert 
wird, verflüchtigen die 
Werte der am Anfang der 
Zeile gefundenen Codes 
sich nicht nach 8 weite¬ 
ren Zeichen. Damit bleibt 
nicht nur die Aussage¬ 
kraft der Prüfsumme voll 
erhalten, sondern erfä*' 


sogar eine erhebliche 
Steigerung. Und vor allen 
Dingen wird nur eine 
klitzekleine Änderung er¬ 
forderlich, die dieses zu 
vollbringen, in der Lage 
ist. Ein einziges Byte ist 
nur zu ändern. Wir tun 
dieses mit “poke 345,10” 
in der Zeile 470. Dadurch 
wird das liier ursprünglich 
ansässige C LC (Clear Car¬ 
ry) durch ASL (Arithme¬ 
tik Sliift Left) ersetzt. 
Die nachfolgende Addi¬ 
tion mit ADC (Addiere 
mit Carry) addiert den 
Ascii-Code des gefunde¬ 
nen Zeichens und den 
nach links herausgeshifte- 
ten Übertrag. Da einige 
unserer Leser beklagten, 
daß das Checksummer- 
listing nachher noch im 
Programmspeicher stehen 
würde, haben wir diesem 
noch mit einem “new” 
abgeholfen. New bzw. 
neu ist nun folgendes. 

10 print“ab” ergibt die 
Prüfsumme <jd > 

10 print”ba” die Prüf¬ 
summe <jf> 

Sie brauchen den 
Checksummer nicht neu 
einzutippen. Alles, was 
Sie tun müssen, ist, die 
Zeile 470 anzufügen. An 
der Bedienung des Check¬ 
summers hat sich nichts 
geändert. Die Eingabehin¬ 
weise bleiben daher wie 
gehabt. 


EINGABEHINWEISE 


Am rechten Rand jedes 
Listings, jeweils am Ende 
einer Eingabezeile, Finden 
Sie zwei Buchstaben zwi¬ 
schen einem Kleiner- und 
einem Größerzeichen ein¬ 
geschlossen. Diese dürfen 
Sie nicht mit in Ihr 


Listing eintippen, son¬ 
dern sie dienen Ihnen zur 
Überprüfung Ihrer Ein¬ 
gabe. 

Zwischen dem Kleiner¬ 
und dem Größerzeichen 
am rechten Rand, be¬ 
finden' sich zwei Buch¬ 
staben. Mit einem speziel¬ 
len Programm können Sie 
beim Eintippen Ihre Ein¬ 
gabe auf ihre Richtigkeit 
überprüfen. Dieses Pro¬ 
gramm, der Checksum¬ 
mer, sorgt nämlich dafür, 
daß nach erfolgter Zeilen¬ 
eingabe am linken oberen 
Bildschirmeck zwei Buch- 


ERST SICHERN, DANN 
AUSPROBIEREN 


staben ausgegeben wer¬ 
den. Wenn diese Buch¬ 
staben nicht mit den vor¬ 
her erwähnten Buchsta¬ 
ben in unserem Listing 
übereinstimmen, so kön¬ 
nen Sie davon ausgehen, 
daß Sie sich vertippt 
haben und können sich 
so die Zeile nochmals 
näher ansehen, ob Sie 
Ihren Eingabefehler Em¬ 
den. Wenn Sie dann alles 
richtig getippt haben, so 
stimmen die Buchstaben 
überein und Sie können 
sich getrost der nächsten 
Zeile zuwenden. 

Das Checksummer- 
listing hat noch keine 
Prüfsummen. Seien Sie 
deshalb besonders auf¬ 
merksam, daß alles paßt 
und speichern Sie dieses 
Programm unbedingt ab, 
bevor Sie es starten! Bei 
einem Tippfehler würde 
es sich wahrscheinlich auf 
Nimmerwiedersehen ver¬ 
abschieden und Sie müß¬ 
ten die ganze Arbeit ver¬ 
mutlich nochmals ma¬ 


chen. Wenn Sie es gestar¬ 
tet haben, so geschieht 
nichts Besonderes. Der 
Computer meldet sich 
einfach kurz darauf mit 
„READY”, und das war 
auch schon alles. Alles 
sollte nun wie immer 
funktionieren, mit der 
kleinen Ausnahme, daß 
nunmehr nach jeder Ein¬ 
gabe im Direktmodus 
eine Prüfsumme erscheint. 
Nehmen Sie zum Testen 
irgendeine kurze Basic- 
zeile aus unserem Heft 
her und testen sie aus. 
Wenn die Summen über¬ 
einstimmen, so können 
Sie sich freuen, denn 
Fehler beim Abtippen 
werden Ihnen nun in Zu¬ 
kunft viel weniger passie¬ 
ren, als vorher. 


EINER FÜR ALLE, EIN 
ECHTES UNIVERSAL- 
PROGRAMM 


Unseren Checksummer 
können Sie verwenden, 
ob Sie einen CI6/116/ 
Plus4 oder ob Sie einen 
C64 oder gar einen CI28 
haben. Nur müssen Sie 
beim letzteren beachten, 
ob Sie auch wirklich im 
40-Zeichenmodus sind. 
Nachdem Sie den Check¬ 
summer geladen und ge¬ 
startet haben, können Sie 
Ihr Basicprogramm ein¬ 
geben wie gewohnt, Sie 
können es abspeichern, 
Sie können auch laden, 
Sie können Kürzel ver¬ 
wenden und, ob Sie ein 
paar Leerzeichen mehr 
oder weniger verwenden, 
der Checksummer läßt 
sich dadurch nicht aus 
der Fassung bringen. Ein 
bißchen Vorsicht sollte 
man allerdings walten 
lassen, wenn man Pro¬ 
gramme eingetippt hat, 
in denen Peeks und Pokes 
Vorkommen. Es wird 
zwar nicht besonders 
häufig Vorkommen, aber . 
es könnte bisweilen ge- 
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10 rem =checksummer = = c16 c64 c128 = = 
20 rem ( p) 05/8? commodore weit = = 

40 rem ( c) alfons mittelmeyer = = 

50 rem == 

60 rem c16/116/plus4 == 

70 rem c64 = = 

80 rem c!28 (40-zeichen) == 

100 rem - 

110 rem grundroutine (c16) 

120 rem-- — 

130 data 165,059,072, 165,060,072,032 
140 data086,137,104,133,060,104,133 
150 data0S9,152,072,160,000,165,020 
160 data024,101,021,170,024,144,011 
170 data201,032,240,006,138,024,1 13 
180 da t a059,234,170,200, 177,059,234 
190 data208,240,169,031,072,138,074 
200 data074,074,074,072,138,041,015 
205 data072,169,031,072,162,003,104 
210 data024,105,129,157,000,012,202 
220 data016,246,104,168,096 
230 1t=peek(772):ht=peek(773) 

240 fori=312to386:readx:pokei,x:nex 
t 

250 iflt<>124then350 

260 rem - 

270 rem anpassung c64 

280 rem - 

290 fori=312to317:pokei,234:next 
300 fori=321to326:pokei,234:next 
310 fori=1to6:readad:readx:pokead,x 
: ne x t 

320 poke380,4:poke319,lt:poke320,ht 
:goto430 

330 data346,121,347,000,348,002 
340 data351,185,352,000,353,002 
350 iflt<>13then430 

360 rem - 

370 rem anpassung c128 (40 Zeichen) 

380 rem - 

390 restore410:poke332,22 
400 poke33S,23:goto310 
410 data313,061,316,062,323,062 
420 data326,061,347,061,352,061 
430 poke772,056:poke 773,1 

440 rem--- 

450 rem ergaenzung 10/87 

460 rem - 

470 poke 345,10:new 

480 rem =========================== 

490 rem = fuer hefte cw 7/87 bis = 
500 rem = cw 9/8? sowie cw128 5/87= 
510 rem = und c16 6/87 ist die -- = 

520 rem = poke-anweisung in zeile = 
530 rem = 470 wegzulassen = 

540 rem =========================== 


schehen, dais nach dem 
Laufenlassen eines Pro¬ 
grammes weder der 
Checksummer noch sonst 
etwas mehr funktioniert, 
auch wenn dies bisher 
ohne Checksummer nicht 
der Fall gewesen sein 
sollte. Also bitte sichern 
Sie in jedem Falle Ihre 
Programme, bevor Sie sie 
ausprobieren. 

Ein paar Dinge sollten 
Sie noch wissen. Wir 
drucken in unseren Li- 
stings des öfteren Punkte 


statt Leerzeichen. Wenn 
ihnen nun aber Leer¬ 
zeichen besser gefallen, 
so liefert der Checksum¬ 
mer natürlich eine falsche 
Summe. Wenn Sie diese 
Richtigkeit überprüfen 
wollen, so können Sie 
dies tun, indem Sie sie 
zuerst einmal so wie im 
Heft abtippen, und nach¬ 
her, nachdem Sie sie nach¬ 
geprüft haben, einfach 
wieder die Punkte durch 
Leerzeichen ersetzen. 

A. Mittelmeyer 


MONITOR 


CHECKMON 


40 rem checkmon ===============c16 

50 rem (p) commodore weit team 


70 rem (c) by a.mittelmeyer 
80 rem c16/116/plus4 


90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
200 


rem =========================== 

fori=312to398:reada 
pokei,a:next 

data 132,218,108,219,0,132,219 
data 164,210,76,75,236,201,62 
data 208,249,165,161,10,101 
data 162,160,7,10,113,161,136 
data 16,250,133,216,169,30,133 
data 217,169,62,160,97,200,220 
data 198,217,208,218,160,105 
data 208,212,201,13,240,4,164 
data 210,24,96,169,60,160,68 
data 32,61,1,165,216,32,16,251 
data 169,62,160,5,200,2,169,32 
data 32,75,236,136,208,248,169 
data 13,208,176,219,68,220,1 
data 804,56,805,1 
fori=1to4:reada:readb:pokea,b 
next:new 

rem ========e=n=d=e=========== 


<cn> 

<ke> 

<nk> 

<ag> 

<ki> 

<Jg> 

<ei> 
<ep> 
<oe> 
<nk> 
<jc> 
<e j> 
<oh> 
<mk> 
<ai> 
<ha> 
<lh> 
<ec> 
<om> 
<o 1 > 

<go> 

<hn> 

<lm> 

<ji> 

<cc> 


"CHECKMON" ist eine unerlaessliche Hil¬ 
ft zur Eingabe von Maschinenprogrammen. 
Laden und starten Sie "Checkmon" und 
g^hen dann mittels MONITOR in densel¬ 
ben. Wenn Sie sich nun z.B. mit 'M1000' 
einen Speicherbereich ansehen, oder 
Hexzahlen eingeben, so erscheint rechts 
die Pruefsumme anstatt der Asciicodes. 
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■BÖRSE 



C16/P4-USER! Orig.-Soft- 
ware-Rest. Liste gg. Freium¬ 
schlag. Nur Orig.-Kass., aber 
spottbillig. Harald Scheel, 
Kollaustr. 178, 2000 Ham¬ 
burg 61 


C16/116/P4! HEX-Tastatur f. 
die komfortable Eingabe v. 
MC-Programmen m. TED- . 
MON od. Checksummer. In 
BASIC als 2x16 Funktions¬ 
tasten verwendbar. DM 60,-. 
Hans-D. Veit, Rennweg 21, 
8441 Aiterhofen 


SUPER-ANGEBOT: STAR 
GAMES 60 zum C16/116/ 
Plus4 für 39,— Sfr od.39,- 
DM. Auf 4 Kass. finden Sie 
60 interessante Spiele. Lie¬ 
ferung erfolgt per Nachn. Ko¬ 
stenlose Info bei: M. Greifen¬ 
hagen, Stöckelstr. 8, CH- 
8610 Uster 


*** SYSTEMWECHSEL *** 
Plus 4 f. 100,— DM; Floppy 
1551 f. 100,—; Drucker MPS 
801 f. 250,—DM; Monitor 
150,- DM; 2 Joyst. 20,- 
DM; 3mal M+T-Disk u. Son¬ 
derhefte 75,- DM; Lightpen 
40,— DM; Script+ 40,- DM; 
ELCAD u. HiRes-HC 65,- 
DM; 16C-Welt 25,- DM. K. 
Gaisser, 07191/44211 


TESTWELT sucht noch Mit¬ 
glieder. Wahlweise Disk od. 
Tape. Erscheinen monatlich. 
Bei Fragen bitte wenden an: 
Jan Peter Kruse, Max-Beck- 
mann-Str. 23, 2900 Olden¬ 
burg 23, Ortsteil Kreyen¬ 
brück. Nur C16/116 u. Plus4! 


COMMODORE USER CLAN 
IN DER DDR sucht für seine 
C16/116/Plus4-Freaks Com¬ 
puterzeitschriften, Bücher, 
Kopien sowie Hardware aller 
Art u. Kassettenschrott, da 
keine Verwandten in der 
BRD. Wir bedanken uns recht 
herzlich. Ludwig Steuner, 
Teutoniaweg 1, DDR 9272 
Gersdorf 


VERKAUFE Orig.-Kass. f. 

CI6: Battle.Cave Fighter, 
Finders Keepers, L. Tennis, 
Fing. Malone, Ghost Town, 
Hektik, Kikstart, Oblido, 
Olympiad, Petch, Squirm, 
Vegas Jackpot, Powerball, 
Spectipede a 5,— DM. Kaiser, 
Gorch-Fock-Str. 7, 2057 
Reinbek, Tel. 040/7104765 


C16/P4-Kopiermodul, An¬ 
wender u. Spielprog.! Super- 
Gratisinfo m. Tips u. Tricks 
(Poke-Liste) sofort anfordem 
bei: Th. Görtz, Friedrich- 
Ebert-Str. 113,6103 Gries¬ 
heim 


SUCHE preisgünstig wengi 
gebr. Floppy 1541 sowie 
Traktordrucker f. P4 (kein 
Thermo), ältere Hefte P4/ 
C64, verbesserte Datenverw.- 
Programme f. P4. Marian 
Demowski, Dr.-Fitz-Str. 10, 
8832 Weißenburg 


C64 — C16 — Plus4 — Lernprg. 
Techn. Mathe +Schulanwend. 
+ Grafik zu reellem Preis. 
Cass/Disk z.B. Bruchrechn. 
Vokab. Geometrie, Zahnr. 
Festigk. Hydr. E-Techn. Kata¬ 
log 1 DM Briefm.-Comp. Typ 
angeben! Softvers. A. Ristau 
Peetzweg 9, 3320 Salzgitter 1 


PLUS4-USER AUS DER 
DDR sucht 1551 od. 1541 
billig od. geschenkt. Habe 
auch viel Software (Disk u. 
Tape). Dirk Schäfer, Junker- 
str. 32, DDR-5900 Eisenach 


LOGO für den Plus4, C16 
(64K), Modul, Diskette u. 
Handbuch f. DM 50,- bei 
Vorkasse (NN: plus DM 5,-). 
Div. Software auf Steckmo¬ 
dul. Info gg. Freiumschlag. 
Harald Hobbelmann, Jun- 
kernkamp 18, 2822 Schwane¬ 
wede, Tel. 04209/5390 


C16/P4-Datenverwaltung: 
170 KB, bis zu 5000 Daten 
fest im Griff, hohe Datensi¬ 
cherheit, bedienungsfreund¬ 
lich, superschnell! Gratisinfo 
bei: Th. Görtz, Freidrich- 
Ebert-Str. 113,6013 Gries¬ 
heim 


Wer würde mittellosem DDR- 
Studenten einen Drucker f. 
Plus4 schenken? U. Krause, 
Leninstr. 20/43, DDR-8300 
Pirna 2 

*********************** 

* PLUS 4 C — 16 * 

* 80 Zeichen Textverarb. * 

* deutsche Umlaute * 

* Disk DM 39,90 Fa. BLK * 

* Kaspar-Spät-Str. 15 * 

* 8000 München 90, * 

* Telefon 089 / 68 82 26 * 
*********************** 

GRAFIKPROGRAMME! 

Wer tauscht mit mir Grafik¬ 
programme? Tel. 07031/ 
806342. Oder schreibt an: 
Daniel Bacher, Dachsklinge 
5, 7032 Sindelfingen 


UMFRAGE! Ich mache eine 
Umfrage bei den P4/C16/116- 
Besitzern, welches das beste 
Spiel für die o.g. Computer 
ist. Einfach anrufen unter 
04838/965 u. es nennen. 


SUCHE alte Computer-Zeit¬ 
schriften (CW, Happy Com¬ 
puter, 64er usw.). Benötige 
unbedingt Happy Computer 
Nr. 1/86! SEHR WICHTIG! 
Angebote an: Throsten 
Boese, Pappelweg 23, 2300 
Kiel 1 


SUCHE VC 1520 Plotter/ 
Printer. Wo bekomme ich die 
4-1/2-Zoll-Additionsrollen? 
Paul Brune, Schreinerstr. 4, 
Tel. 05242/34689 


TAUSCHE Software f. Plus4. 
Biete ca. 350 Games u. 100 
Anw. Jede Zuschrift wird be¬ 
antwortet. Schickt Eure Li¬ 
sten an Thomas Weisheit, 
Pommrück 6, 6431 Hauneck 


VERKAUFE Liste m. 35 Po- 
kes u. 50 Startadressen v. be¬ 
kannten Spielen f. C16/116/ 
P4 f. nur 10,- DM-Schein an: 
Jens Borau, Ahornstr. 4, 

3549 Volkmarsen 


C16/P4: VERKAUFE 6 Orig. 
Spiele (Tape) f. 50,- DM. 2 
Spiele nur f. 64 KB. Tel. 
05674/4645 


Wer hat DFÜ-Erfahrungen m 
Plus4? Bitte melden bei Rai¬ 
ner Bielefeld, Neustadtring 
23, 3300 Braunschweig, Tel. 
0531/503589 


PLUS4/C16. Orig.-Spiele 
(Disk) zu verk.: Profipack II 
64K 80,— DM; Music Master, 
Grafikdesigner, Micro Text 
2.0 je 10,— DM; Plus4 Sextett 
20,— DM; alles zzgl. Porto. 
Heinz Weissmann, Im Leitle 
2, 8570 Pegnitz, Tel. 09241/ 
2627 


VERKAUFE 64er-SH 14 
(CI6 etc.) m. Prog.-Disk f. 
20,- DM; CW-SH 4/87 f. 

6,50 DM; Comp, mit SH 1/87 
f. 6,50 DM; Comp, mit SH 
1/87-3/87 a 3,80 DM; Comp, 
mit 12/86-3/87 a 1,70 DM; 
64er 12/86, 2/87,3/87, 

6/87 a 3,80 DM. Kaiser, 
Gorch-Fock-Str. 7, 2057 
Reinbek, Tel. 040/7104765 


Gehäuse f. Plus4, CI6 f. DM 
20,—. Div. Software auf 
Eprom. Viele Ersatzteile f. 

CI6 u. Plus4. Info gg. 
Freiumschlag. Harald Hobbel¬ 
mann, Junkemkamp 18, 

2822 Schwanewede, Tel. 
04209/5390 


SUCHE Floppy 1541 od. 
1551 u. Farbmonitor od. 
Farbfernseher. Nur funk¬ 
tionstüchtig. Zahle je bis zu 
150,- DM. Tel. 02261/ 
48940 ab 17 Uhr ' 


HAST DU PROBLEME m. 
dem C16/Plus4? Du bist An¬ 
fänger? Wir helfen. Auch 
Fortgeschrittenen. Wir bie¬ 
ten Clubzeitung, Infos, je¬ 
de Menge Tips u. Tricks. Am 
besten heute noch Info gg. 
1,60 DM bei CIG, c/o K.-D. 
Schindler, Luciusstr. 10,623 
Frankfurt 80, anfordern. 


PLUS4, Floppy 1551, Data- 
sette, Monitor, Joyst., div. 
Bücher u. Zeitschr., Anwen- 
derpr. z.B. Micro Text, Da¬ 
tei, Kalk usw., Spiele z.B. 
ACE, Bongo, Demol., Strip 
Poker usw. wg. Systemwech¬ 
sel zu verk. VB 400,- DM. 
Lars Winter, Schloßgebiet 4, 
2320 Plön, Tel. 04522/ 
3753, 17-18 Uhr 


Wer kann mir helfen? Suche 
komplette Liste, um selber 
Programme u. Spiele zu 
schreiben! Bin quasi noch An¬ 
fänger! Unkosten werden 
übernommen! Interesse für 
CI6 m. 64K u. C64. Wer 
kann mir helfen? Hans Jür¬ 
gens, Provinzstr. 111,1000 
Berlin 51 


AUFGEPASST! Verkaufe 
Plus4, Datasette, 1 Joy, 11 
Comp.-Hefte, 22 Spiele, 3 
Handbücher, 6 Mon. alt, Preis 
nach VB od. Tausch gg. C64. 
Tel. 0201/466338 


C16/116/Plus4. Entwicklung 
v. Rechenprogrammen jeder 
Art. Statistik u. Kalkulation! 
Martin G. Maaß, Kulbrock- 
str.2,4800 Bielefeld 14 


VERKAUFE f. C16/Plus4 
Spiele u. Anwenderprog., 20 
Prog. zu 10,- DM. VERKAU¬ 
FE C16-Orig.-Spiele zum hal¬ 
ben Preis z.B. P.O.D, R16, 
Attack. Schreibt an: C. 
Schnoor, Lausanner Str. 129, 
2800 Bremen 44 


VERKAUFE: C116/C16/ 

Plus4. Anschlußkarte f. Ta¬ 
statur m. 10er Block (CBM 
600/700), Erw. Karte m. 2 
Steckplätzen f. Expans.-Port, 
z.B. f. Eproms. Brenne Ihre 
Eproms. Suche Hard- u. Soft¬ 
ware aller Art. Tel. 040/ 
7125694 


Plus4/C16/Cl 16: Biete 5C 
Spiele, div. Anwend.-Prog. f 
DM 20,— (Disk). Schein od 
Scheck. Suche Kopierprog. v 
Kass. auf Disk. Listings gg 
80 Pf. in Briefmarken. 
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CI 6/116 P4 


Speicherbegrenzung auf 12 K 


CI 6/116 P4 


Tastencode (2038) 


Speicherbegrenzungen per Software 

Manche Software läuft nur auf Rechnern mit zwölf 
KByte Speicher. Der Speicherbereich muß auf zwölf 
KByte begrenzt werden. 

1. Methode: (Bei BASIC-Prg): 
POKE55,246:POKE56,63:CLR 

2. Methode: 

POKE1331,246 :POKE 1332,63: SYS32768 
Bei 32 KByte: 

POKE1331,246 :POKE 1332,127 :SYS32768 


Letzte gedrückte Taste 

Nach jedem Tastendruck steht in der Speicherstelle 
2038 der Tastencode der zuletzt gedrückten Taste. Ist 
keine Taste gedrückt, ist der Inhalt 0. Mit dem WAIT- 
Befehl kann man dies nutzen: 

WAIT2038,63: Programm wartet auf beliebige Taste. 

WAIT2038,60,60: Programm läuft so lange, bis der 
Inhalt von 2038 genau 60 ist (Leertaste). 


C16/116 P4 


Merkzettel Bildschirm 


C16/116 P4 


GOTO ZN 


Bildschirminhalt abspeichern 

Man kann sich einen einfachen Zettelkasten auf Dis¬ 
kette (Kassette) anlegen: 

1) Bildschirm löschen 

2) Text schreiben (maximal halber Bildschirm) 

3) Im MONITOR mit „S“name“.8,0C00,0D00“ 
aospeichern 

4) Kann später im MONITOR mit „L“name“,8“ ge¬ 
laden werden. 


Programmierter Zeilensprung 

Die Sprungbefehle GOTO und GOSUB akzeptieren 
keine Variablen im Argument. Hierzu ist der ON-Befehl 
gedacht: 

Beispiel (Menü): 

100 v$=‘‘1234“:getkeya$ 

110 on instr(v$,a$)+l goto 100,200,300,400,500 

Ist A$ nicht in V$ enthalten, springt das Programm 
nach 100, ist A$=“4“, springt es nach 500. 


CI 6/116 P4 


Interruptvektor (788/789) 


CI 6/116 P4 


Einfügemodus (2026) 


Verbiegen des IRQ 

Normalerweise zeigt der IRQ-Vektor (steht in 788/789) 
auf $CE0E. Will man ein interruptgesteuertes Programm 
starten, so muß dieser Vektor auf das eigene Programm 
umgelenkt werden. 

Die eigene Routine muß mit JMP $CE0E abgeschlossen 
werden und es darf während der Umstellung des Vektors 
kein Interrupt erfolgen. Dies geschieht mit einer kleinen 
Routine (siehe Rückseite). 


Anzeige des Einfügemodus 

Mit ESC&A wird der Insert-Modus ein- und mit ESC&O 
wieder ausgeschaltet. 

Die dafür zuständige Speicherstelle ist 2026 
($07ea, $00 = aus. $80 = ein). 

Mit einem kleinen Maschinenprogramm (auf der Rück¬ 
seite) kann man sich dies zunutze machen. Es zeigt durch 
die Rahmenfarbe (steht in $ffl9) an, ob der Einfüge¬ 
modus eingeschaltet ist. 


CI 6/116 P4 


ESC aktiv? (2027) 


CI 6/116 P4 


Externe Variablendeklartion 


ASCII-Code des letzten Zeichens 

In 2027 ($07eb) steht der ASCII-Code des letzten Zei¬ 
chens. Bei ESC steht dort 27 ($ 1 b). Damit kann man 
sich anzeigen lassen, ob ESC aktiv ist (Maschinenpro- 

S amm auf der Rückseite). 

ies ist vor allem dann hilfreich, wenn die Tastatur 
schon stark beansprucht ist und die ESC-Taste nicht 
mehr immer anspricht. Man kann auf diese Art natür¬ 
lich auch andere Zeichen abfragen (Menüauswahl bei 
Maschinenprogrammen). 


Hochsetzen des BASIC-Anfangs 

Durch Hochsetzen des BASIC-Anfangs (in 43/44) kann 
man vor dem BASIC-Programm ein Maschinenprogramm 
ablegen. 

Wird der Beginn des BASIC-Speichers (in 43/44) verän¬ 
dert, so hat dies keinen Einlfuß auf die Variablen, die 
hinter dem BASIC-Programm abgelegt werden. Daher 
kann man ein BASIC-Programm in einen Teil, der 
Variablen definiert, und den Hauptteil auftrennen (wird 
schneller, da kürzer). 










Demo Tastencode 

100 v=63:wait2038,v:geta$:printa$peek(2038):goto 

100:rem laueft bei bei.taste 

200 v=60:wait2038,v,v:printpeek(2038),peek(2038) 
andv:goto200:rem Fiaelt m. leert. 

Beste Methode: 

49998 rem ** Speicher auf 12 k **** 

49999 rem ****** resetfest ****** 

50000 restore50020:tori=16374toi+7:readx:pokei.x:next 
50010 pokel 331,246: poke 1332,63 :sys32814: return 

50020 data 141.62,255.76,1 64,242.246,255 

Mit GOSUB50000 starten, mit POKE16377,1 und 

Drücken des RESET-Knopfes die Begrenzung aufheben. 



GOTO ZN mit TRAP 

Bei einem Fehler springt das Programm an die mit 

TRAP angegebene Zeilennummer. Das Argument kann 
hier eine Variable sein. 

Beispiel: 

10 a=900+int(rnd(l)*4+.5)*10:trap a:* 

erzeugt einen SYNTAX ERROR und das Pro¬ 
gramm springt (zufallsgesteuert) zu den Zeilen 910, 

920, 930 oder 940. 

Beispiel: 

Nach CLEAR eingeben: 

POKE4097,1 :SYS34840:SYS34891 :CLR 

Im MONITOR: 

S“RENEW“,8,0C00,0C50 

Wenn jetzt ein Programm durch RESET verloren geht, 
einfach LOAD“RENEW“,8,l eingeben, mit HOME 
und RETURN drücken und das Programm ist wieder da. 

(Bei Kassette statt der Acht eine Eins schreiben.) 



Rahmenfarbe zeigt Insert-Modus an: 

. 065e lda $07ea 
.0661 bne $066b 
.0663 lda $01 
. 0665 sta $ffl9 
. 0668 jmp $ce0e 
. 066b lda $00 
. 066d sta $ffl9 
. 0670 jmp $ceOe 

Der IRQ-Vektor muß auf $065E umgelenkt werden 
(POKE788,94:POKE789,6 oder besser als Maschinen¬ 
routine). 

Beispiel: 

Interrupt-Vektor auf $065e verbiegen. 

. 0675 sei 

. 0676 lda #$5e 

.0678 sta $0314 

. 067b lda t$06 

. 067d sta $0315 

. 0680 cli 

. 0681 rts 

Natürlich muß vor dem SYS-Aufruf zum Vektorum¬ 
stellen (SYS1651) die eigene Routine bei $065e vor¬ 
liegen. 



Beispiel: 

Teil 1 (Deklaration): 

10 poke44,20:a$=“BASIC-Anfang bei 20*256“ 

20 goto 10 

Jetzt BASIC-Anfang im Direktmodus hochsetzen mit: 
POKE44,20:POKE20*256,0 

Teil 2 (Hauptprogramm): 

10 print a$:rem 

Mit POKE44,16 BASIC-Anfang zurücksetzen und mit 

RUN starten. In Teil 1 (Zeile 10) wird der BASIC-Anfang 
auf den Beginn des Hauptprogramms gesetzt; der CI6 
merkt dies aber erst, wenn eine GOTO-An Weisung kommt. 

Dann sucht er die Zeile 10 ab dem (neuen) BASIC- 
Anfang. 

Rahmenfarbe (in $FF19) ändert sich, wenn ESC ge¬ 
drückt wurde: 

. 065e lda $07eb 
. 0661 cmp #$lb 
. 0663 bne $066d 
. 0665 lda $00 
. 0667 sta $ffl9 
. 066a jmp $ce0e 
. 066d lda $01 
. 066f sta $ffl9 
. 0672 jmp $ce0e 

Der IRQ-Vektor muß auf $065E umgelenkt werden 
(POKE788,94:POKE789,6 oder besser als Maschinen¬ 
routine). 
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Kunst 


Computer sind nicht nur Gebrauchsgegenstände. Sie werden 
zunehmend auch von Künstlern als Motiv entdeckt. Einige besonders 
gut gelungene Arbeiten haben wir für Sie, unsere Leser, reservieren 
können. Alle Motive sind strikt auf eine Auflage von 
99 Exemplaren limitiert und von der Künstlerin, Sybille Areco, 
handsigniert und numeriert. Die Exponate werden nach Bestelleingang 
im 24-Farbendruck von Hand gefertigt, die Vorlage nach 

dem 99. Druck vernichtet. Unser Angebot: Jedes Motiv 
nur DM 85,-, zwei Motive DM 150,-, drei DM 210,- und 
vier Motive nur DM 250,-. Jedes Bild ist 30 x 40 Zentimeter 
groß und kommt im Passpartout in stabiler Verpackung 
(im Preis enthalten). 

Lieferzeit nach Bestelleingang: ca. drei Wochen. 
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Bestellcoupon 

Hiermit bestelle ich in Kenntnis ihrer Verkaufsbedingungen folgende Exponate: 


Ich zahle: (Zutreffendes bitte ankreuzen!) 

per beigefügtem Scheck □ Schein □ Gegen Bankabbuchung am Versandtag □ 


Nr.: 
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Meine Bank (mit Ortsname)- 

Meine Kontonummer- 

Meine Bankleitzahl - (steht auf jedem Bankauszug) 

Nachname - Vorname- 

PLZ/Ort_ Str./Nr._ 

Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung. 

Wichtig: Scheckeinreichung und Bankabbuchung erfolgen erst nach dem Versand. Keine 
Nachnahme möglich. Auf Wunsch Rechnung mit ausgewiesener Mehrwertsteuer. 

Unterschrift - 

Bitte ausschneiden und einsenden an 

AKTUELL-VERLAG 
Heßstraße 90 
8000 München 40 





























■ SERIE 


SO PROGRAMMIERE ICH IN BASIC 


ganz einfach 


Obwohl fast jeder C16/Plus4-Besitzer 
erste Erfahrungen mit BASIC vorzuweisen hat, 
herrscht oft hinsichtlich der BASIC-Programmierung 
viel Ratlosigkeit. Unsere neue Artikelreihe zeigt 
auf, wie BASIC für die persönlichen Belange 
zu nutzen ist. 


Falls Sie sich auch schon 
mal die Frage gestellt ha¬ 
ben, was Sie mit Ihrem 
CI 6, CI 16 oder Plus4 an¬ 
fangen sollen und zu kei¬ 
ner schlüssigen Antwort 
gekommen sind, stehen 
Sie damit sicher nicht al¬ 
lein. Die Motivation, sich 
für Geräte dieser Katego¬ 
rie zu entscheiden, liegt 
oft allein am günstigen 
Preis oder hat den Grund, 
mal eben zu lernen, wie 
man mit einem Computer 
umgeht. 

Die ersten Wochen nach 
dem Erwerb ist so ein 
Rechner auch sehr inter¬ 
essant und unterhaltsam. 
Nachdem aber das 10000. 
Raumschiff abgeschossen 
und der obligatorische 
BAS IC-Kurs von Kurt 
Scharnbacher durchge¬ 
ackert wurde, stellt sich 
oft genug die Frage: 

,,Was soll ich damit?“ 

SPIELECOMPUTER 
ODER ECHTES 
ARBEITSGERÄT? 

Erklärt wird der Frust oft 
damit, daß man meint, 
der CI 6 habe viel zu we¬ 
nig Speicherplatz, der C64 
oder der Amiga würden 
den nötigen Spaß bringen 
und daß der CI 6 nur als 
Spielzeug zu gebrauchen 
wäre. Oder daß man nur 
in Maschinensprache 
„richtig“ programmieren 
und, last not least, man 
von einem Wühltischcom¬ 
puter halt nicht viel er¬ 
warten könne. 

Das erste Argument ist 
zwar bedingt richtig, 
kann aber vergessen wer¬ 
den, wenn man bedenkt. 


daß sich der CI 6 mit et¬ 
wa 50 Mark auf 64 KByte 
RAM aufrüsten läßt und 
damit über mehr Speicher¬ 
platz verfügt als der C64. 


Die Tatsache, daß der CI 6 
und seine ..Ableger“ CI 16 
und Plus4 als Wühltisch¬ 
computer laufen, sagt 
nichts über die Qualität 
und Fähigkeiten dieser 
Rechner aus. Den ersten 
Computer schaffte ich 
mir 1982 gebraucht zu ei¬ 
nem Preis von 700 Mark 
an. Es handelte sich um 
einen TI99, der damals 
stolze 2000 Mark kostete 
und nur magere 16 KByte 
RAM vorzuweisen hatte. 
Er hätte dem Plus4 in 
keiner Hinsicht das Was¬ 
ser reichen können, trotz 
des zehnfachen Preises. 
Vor vier Jahren, als der 
Plus4 eingeführt wurde, 
kostete er mit 1 200 Mark 
immerhin 400 Mark 
mehr als der C64 zur sel¬ 


ben Zeit. Er war sogar 
als möglicher Nachfolger 
in der Diskussion, denn 
schließlich ist er wie der 
CI 6 mit einem wesent¬ 
lich verbesserten BASIC 
und dem komfortableren 
und schnelleren Disketten- 
Betriebssystem ausgestat¬ 
tet. Zu welchen Leistun¬ 
gen der C16/Plus4 fähig 
ist, dokumentieren Pro¬ 
gramme wie Inter-Olym¬ 
piade oder Ace. 

Auch die „Spielzeug- 
These“ hat wenig Sub¬ 
stanz. Unbestritten sind 
die Computer dieser Rei¬ 
he gute Spielzeuge. Bei 
einem Fundus von zirka 
300 kaufbaren Program¬ 
men und etlichen Publi¬ 
kationen dürfte für je¬ 
den Geschmack etwas da- 


Losnunk 



Zeile 24 
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SERIE! 


:ei sein. Es hindert Sie je- 
ioch nicht daran, Ihren 
Rechner auch für „ernst¬ 
hafte“ Anwendungen zu 
-.utzen. Schließlich hat 
:er Plus4 eingebaute Pro¬ 
gramme, die Ihren Com¬ 
puter im Handumdrehen 
zur elektrischen Super- 
Schreibmaschine machen 
and die auch mit der Ka- 
zalogisierung Ihrer Mine¬ 
ralien- oder Briefmarken¬ 
sammlung spielend fertig 
werden. 

Auch für den CI 6 kom¬ 
men in Verbindung mit 
entsprechender Software 
derartige Anwendungen 
in Betracht. In diesen 
Fällen sollten allerdings 
ein Drucker und ein Dis¬ 
kettenlaufwerk vorhan¬ 
den sein. Die Möglich¬ 


keiten. die sich aus die¬ 
ser Kombination ergeben, 
erschöpfen sich erst im 
Zusammenhang mit Ge¬ 
schäfts- oder Betriebsan¬ 
wendungen. 

Aber auch ohne Zusatz¬ 
geräte, Datasette ausge¬ 
nommen, finden sich 
noch genug Möglichkei¬ 
ten. Vor allem, wenn die 
geplante Anwendung 
außerhalb der Standard¬ 
programme (Text Verar¬ 
beitung, Kalkulationen 
und Dateien) hegt, steht 
nichts im Wege, eigene 
Problemlösungen zu 
programmieren. 


IST BASIC 
UNEFFEKTIV? 


Spätestens dann stellt man 


sich die Frage: „Mit BA¬ 
SIC könnte man notfalls 
noch fertig werden, nur — 
ist das nicht sehr unef¬ 
fektiv? “ 

Wer sich nicht vorstellen 
kann, daß der CI 6/Plus4 
für eigene Anwendungen 
in Betracht kommen 
könnte, sollte sich die fol¬ 
genden Fragen durch den 
Kopf gehen lassen: 

• Hatten Sie schon eigene 
Spielideen und sahen bis¬ 
her keine konkrete Mög¬ 
lichkeit, sie zu verwirkli¬ 
chen? 

• Sind Sie es leid, nie mit 
dem Geld auszukommen 
und hätten Sie gern einen 
Überblick über Ihre Fi¬ 
nanzen? 

© Ist es Ihnen schon mal 
passiert, daß in der Tief¬ 
kühltruhe Lebensmittel 
schlicht und einfach ver¬ 
gessen wurden? 

• Brennt es Ihnen auf den 
Nägeln, zu erfahren, was 
der geplante Neuwagen 
im Vergleich zu seiner 
Konkurrenz tatsächlich 
im Monat kostet? 

• Nerven Sie Ihre Lieben 
damit, daß Sie jemanden 
suchen, der Sie nach den 
Vokabeln abfragt? 

• Sind Sie in verschiede¬ 
nen Schulfächern 
„schwach auf der Brust“, 
weil Ihnen zum Lernen 
oft die Motivation fehlt? 

• Ernähren Sie sich nach 
einer Diät und möchten 
lernen, wie man Nährstof¬ 
fe und Kalorien abschätzt? 
9 Fahren Sie oft mit ver¬ 
schiedenen Verkehrsmit¬ 
te bi und möchten wissen, 
welche der Möglichkeiten 
für Sie am günstigsten ist? 
9 Leben Sie in einer 
Wohngemeinschaft und 
haben jeden Monat das 
Problem, die anteiligen 
Haushaltskosten auszu¬ 
rechnen? 

9 Haben Sie Lust, mal 
nur aus Interesse eine pri¬ 
vate Statistik zu führen? 
Falls Sie eine dieser Fra¬ 
gen, die stellvertretend 


Bildschirm zum 
Programm 
FAMILY- 
QUIZ 


Spalte 39 
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10-18 


Zu ratende 
Personen 


Thema 

1. Teil 

Thema 

2. Teil 


für viele persönliche Be¬ 
dürfnisse stehen, mit „Ja“ 
beantworten können, 
sollten Sie ein eigenes 
BASIC-Programm schrei¬ 
ben. 


VOR- UND NACHTEILE 
VON BASIC 


Leider werden die beiden 
Nachteile des BASIC 
(Langsamkeit und Un¬ 
übersichtlichkeit) so oft 
hervorgehoben, daß man 
die Vorteile leicht über¬ 
sieht: 

1. BASIC ist schnell und 
leicht für jedermann zu 
erlernen. Es verlangt 
durch seine große Nähe 
zur normalen Umgangs¬ 
sprache nur geringe ma¬ 
thematische und logische 
Fähigkeiten. 

2. BASIC ist nachsichtig 
und verzeiht dem Pro¬ 
grammierer seine Uner¬ 
fahrenheit und diverse 
Schlampereien eher als 
jede andere Programmier¬ 
sprache. 

3. Durch seine Unkompli¬ 
ziertheit gelangt man un¬ 
gewöhnlich schnell zum 
programmierten Ziel. 

4. Fehler lassen sich bei 
BASIC rasch und kom¬ 
fortabel aus der Welt 
schaffen. Wo bei ande¬ 
ren Sprachen eine kom¬ 
plette Umstrukturierung 
fällig wäre oder nur noch 
der RESET-Schalter wei¬ 
terhelfen kann, verwöhnt 
Sie BASIC mit Fehlermel¬ 
dungen, die auch meist 
den Grund für den Fehler 
angeben. Der C16/Plus4 
besitzt als einer der we¬ 
nigen Heimcomputer so¬ 
gar spezielle Befehle zur 
Fehlerbehandlung. 


Zu den Nachteilen: 

1. Schnelligkeit spielt bei 
Programmen vor allem 
dann eine Rolle, wenn 
auf dein Bildschirm viel 
bewegt werden soll, 
wenn’s ans Sortieren geht 
oder wenn sehr viel mög¬ 
lichst schnell ausgerech¬ 
net werden soll. Während 
man im ersten Fall meist 
die Waffen strecken muß, 
kommt es beim Sortie¬ 
ren und Rechnen mehr 
auf die persönlichen An¬ 
sprüche und Maßstäbe an. 
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Wenn Sie bereit sind, 
auch nur geringe Konzes¬ 
sionen in dieser Hinsicht 
zu machen, läßt sich’s mit 
BASIC gut leben. 

2. Ob ein BASIC-Pro- 
gramm chaotisch und für 
andere unübersichtlich ist, 
liegt wesentlich mehr am 
Programmierer als an der 
Sprache. Vor allem durch 
die Technik der Unterpro¬ 
grammierung in Verbin¬ 
dung mit einer Variablen¬ 
liste kann sich auch ein 
BASIC-Programm sehr 
übersichtlich darstellen 
lassen. 

Mit unserer kleinen BA- 
SlC-Serie sollen Sie Gele¬ 
genheit bekommen, Pro¬ 
grammiertechniken, 

Tricks und Möglichkeiten 
kennenzulernen, die Sie 
im Handbuch nicht fin¬ 
den werden. 


DAS S 



Zwei Voraussetzungen 
sollten Sie dafür mitbrin¬ 
gen: 

1. Sie sollten sich soweit 
mit BASIC beschäftigt 
haben, daß Ihnen die wich¬ 
tigsten Begriffe und Be¬ 
fehle bekannt sind. Das 
läßt sich an zwei bis drei 
Abenden nachholen. 

Ferner wäre es wünschens¬ 
wert, daß Sie schon ein¬ 
mal ein Programm selbst 
geschrieben haben. 

2. Das Programmieren soll¬ 
te für Sie mehr Spaß als 
Arbeit sein. Betrachten 
Sie Ihren Computer künf¬ 
tig als ein Mittel, Ihrer 
Kreativität Ausdruck zu 
geben. 

An Hardware-Vorausset¬ 
zungen genügt der CI 6/ 

116 in seiner Grundver¬ 
sion (16 KByte), eine Da- 
tasette und ein Farbfern¬ 
seher. Nur wenn Shapes 
besprochen werden, ist 
eine Speichererweiterung 
(bei Plus4 eingebaut) un¬ 
abdingbar. Das Vorhan¬ 
densein eines Druckers 
oder eines Diskettenlauf¬ 
werks erweitert die Mög¬ 
lichkeiten. 

Wie programmieren Sie 
in BASIC? 

Zunächst sollten Sie auf 
jeden Fall vermeiden, 
spontane Ideen ebenso 


spontan in die Praxis um¬ 
zusetzen. ,,Gut Ding will 
gut Weile haben“, bewahr¬ 
heitet sich auch liier. 
Manche fixe Idee beim 
Programmieren zerplatzt 
wie eine Seifenblase, weil 
sie sich entweder als un¬ 
durchführbar, überflüssig 
oder unlogisch erweist. 
Erst wenn die Sache nach 
einigen Tagen Abstand im¬ 
mer noch gut klingt, ist es 
Zeit, sie zu konkretisieren. 
Selbst dann ist es nicht 
ratsam, sich sofort an den 
Computer zu setzen. Viel¬ 
mehr sollten Sie sich ei¬ 
nen Briefblock schnappen, 
um einige Dinge schrift¬ 
lich zu fixieren. Keine 
Angst, es sollen wirklich 
keine langen Ausführun¬ 
gen über komplizierte 
Strukturdiagramme fol¬ 
gen. Sie erleichtern zwar 
das Programmieren er¬ 
heblich; erfordern aber 
Wissen, Logik, Geduld 
und Übung. 


Es geht auch einfacher. 
Wir haben uns für diese 
Artikel Beispielprogram¬ 
me einfallen lassen, die 
ohnehin das Abtippen 
wert sind. In diesem Fall 
soll das nachfolgende Pro¬ 
gramm FAMILY-QU1Z 
dazu dienen, Ihnen meine 
persönliche Vorgehens¬ 
weise zur Programmpla¬ 
nung zu demonstrieren. 
Jeder erfahrene Program¬ 
mierer wird Ihnen bestä¬ 
tigen, daß ohne Pro¬ 
grammplanung oft genug 
allein der Mißerfolg pro¬ 
grammiert wird. 

Bei mir vollzieht sich die 
Planung in drei Stufen: 

1. Festhalten der 
Grundidee, 

2. Aufstellen der Spiel¬ 
regeln (oder der Bedie¬ 
nung), 

3. Festlegung der 
Programm¬ 
strukturierung. 

Zu 1.: Schreiben Sie ledig¬ 
lich knapp und präzise 
auf, was Sie vom fertigen 
Programm erwarten. 
Beispielprogramm: Quiz 
für die ganze Familie; mit 
Fragen, die verwandt¬ 


schaftsbezogen und per¬ 
sonengebunden sind. 

Zu 2.: Spielen Sie gedank¬ 
lich mehrere Möglichkei¬ 
ten durch, klopfen Sie 
das Ganze hinsichtlich 
Praktizierbarkeit und Lo¬ 
gik ab und halten Sie den 
groben Ablauf schriftlich 
fest. 

Beispielprogramm: 

• Zwei bis vier Personen 
können mitspielen. 

• Aufteilung der Fragen 
in drei Themenbereiche: 

— Daten und Jubiläen, 

— Vorlieben und Abnei¬ 
gungen, 

— Begebenheiten und 
Anekdoten. 

Die Themen haben Kenn¬ 
farben. 

• Die Fragen werden so 
gestellt, daß mit Personen¬ 
namen geantwortet wer¬ 
den muß, die mittels 
Kennziffern eingegeben 
werden. 

• Die Themenauswahl er¬ 
folgt durch Zufall, die der 
Fragen ebenfalls. 

• Unabhängig von der 
Fragenbeantwortung wird 
abwechselnd gespielt. 

• Die richtige Beantwor¬ 
tung einer Frage wird mit 
einem Sternchen auf ei¬ 
nem Farbfeld, welches 
der jeweiligen Themen¬ 
farbe entspricht, markiert. 

• Sind drei Sternchen auf 
einem Themenfeld vor¬ 
handen, wird der Spieler 
übersprungen. 

• Gewonnen hat der, 
dem es zuerst gelungen 
ist, in jedem Themenfeld 
drei Sternchen zu haben. 
Zu 3.: Überlegen Sie, 
welche Programmschritte 
für den geplanten Spielab¬ 
lauf voraussichtlich nötig 
sind. Fertigen Sie in Ver¬ 
bindung mit diesen Über¬ 
legungen eine Bildschirm¬ 
skizze an. Dazu genügt 
ein karierter Briefblock, 
auf dem Sie ein Feld von 
20*12,5 Zentimetern ein¬ 
rahmen (entspricht 25 
Zeilen von 40 Zeichen 
Länge). 

Bei unserem Beispielpro¬ 
gramm sah die Skizze 
so aus: 

Machen Sie sich danach 
eine Liste der absehbaren 
Programmschritte und 
lassen Sie auf der linken 
Seite einen breiten Rand. 


Überlegen Sie, welche 
Reihenfolge die einzelnen 
Programmschritte haben 
sollen und schreiben Sie 
die Startzeilen-Nummern 
analog zu den Programm¬ 
schritten an den Unken 
Rand. Um einen schnel¬ 
len Programmablauf zu 
erhalten, sollten Sie die 
selten benutzten Schritte 
an das Ende des Listings 
setzen. Heraus kommt ei¬ 
ne Liste von Unterpro¬ 
grammen, die in unserem 
Fall so aussieht: 

9300 Dimensionierung 
und Zuordnung 
von Variablen 
9200 Titeldarstellung 
9100 Anleitung 
9000 Abfrage der Spie¬ 
leranzahl und der 
Spielernamen 
8100 Data der zu raten¬ 
den Personen 
8000 Spielfeldaufbau 
3000 Data der Fragen 
zum Thema: 

Daten und Jubi¬ 
läen 

4000 Data der Fragen 
zum Thema: 
Vorheben und 
Abneigungen 
5000 Data der Fragen 
zum Thema: 
Begebenheiten und 
Anekdoten 

2300 Fragen auslosen, 
anzeigen und aus¬ 
werten 

2200 Anzeige des 
Themas 

2100 Auslosendes 
Themas 

2400 Anzeige „Falsch!“ 
2420 Anzeige „Richtig!“ 
2800 Löschen der 

Fragen-An zeige 
2700 Löschen des 
Lospunktes 
2600 Löschen der 

Themen-Anzeige 
6000 Ende 

KENNZEICHNEN 


Natürlich kann diese Auf¬ 
listung nur als Beispiel 
verstanden werden. Die 
Aufteilung könnte auch 
völlig anders aussehen. 
Nach dieser Arbeit kön¬ 
nen Sie sich endlich an 
den Computer setzen und 
die von Ihnen definierten 
und zugeordneten Pro- 
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grammabschnitte mit 
REMs kennzeichnen. Ge¬ 
hen Sie praktischerweise 
so vor, daß sich die REM- 
Zeile eine Nummer vor 
der Unterprogramm-Start¬ 
zeile befindet 
(Beispiel: REM 2399 
= Anzeige „Falsch“). 

Mit dieser geringen Mühe 
haben Sie sich ein solides 
Grundgerüst für Ihr Pro¬ 
gramm geschaffen. Diese 
Methode hat zwei ent¬ 
scheidende Vorteile: 

• Sie können sich durch 
Unterprogramme quasi 
eigene Befehle schreiben. 
GOSUB 2100 ist dann 
nicht nur ein Sprungbe¬ 
fehl mit einer Adresse, 
sondern der Befehl 
„Thema auslosen“. 

• Die einzelnen Unter¬ 
programme können 
separat ..angetestet“ wer¬ 
den, ohne daß auf dem 
Bildschirm das absolute 
Chaos ausbricht. 

Wurden alle (soweit sinn¬ 
voll) Programmabschnit¬ 
te als Unterprogramme 
geschrieben, besteht der 
eigentliche Programmab¬ 
lauf nur noch darin, die 
Unterprogramme in ei¬ 
ner bestimmten Reihen¬ 
folge abzurufen. Auch 
wenn Sie sich nach Jah¬ 
ren das Programm wie¬ 
der hervorkramen, wird 
es Ihnen ohne Schwierig¬ 
keiten gelingen, sich in 
den Programmablauf hin¬ 
einzudenken. 


Nach diesen Vorbereitun¬ 
gen ergibt sich alles Weite¬ 
re beim Programmieren. 
Lediglich eine Mühe soll¬ 
ten Sie noch auf sich neh¬ 
men: das Führen einer 
Variablenliste. Aus ihr 
soll hervorgehen, welche 
Variablen verwendet wer¬ 
den, was die jeweilige Va¬ 
riable vertritt (zum Bei¬ 
spiel “X“=Zufallszahl) 
und eventuell auch die 
Zeilennummern, in der sie 
Verwendung findet. 
Nachfolgend die Variablen¬ 
liste für unser Beispielpro¬ 
gramm — ohne Zeilennum¬ 
mern, da eine ausführli¬ 
che Programmbeschrei¬ 
bung nachfolgt: 


Dimensionierte 

Variablen: 


CO (3) = Kennfarben 

der Themen 
K (3,4) = Speicher der 

Antwort- 
Sternchen 

N$ (4) = Spielernamen 

Tl$(3) = Themenbe¬ 
zeichnungen 

1. Teil 

T2$ (3) = Themenbe¬ 
zeichnungen 

2. Teil 


Undimensionierte 

Variablen: 


A,B,C,D 


KP 

KX 

Q 

QA 

S 

SP 

X 

E$ 

FR$ 

K$ 

Z$ 


Universelle 
Variablen für 
FOR-NEXT- 
Schleifen 
oder als 
Zähler 
Horizontale 
Position des 
Lospunktes 
Themen-Zu- 
ordnungs- 
nummer 
Richtige 
Kennzahl der 
Antwort 
Kennzahl- 
INPUT 
Spiel¬ 
nummer 
Spieleranzahl 
Zufallszahl 
Abfrage auf 
Weiterführung 
des Spiels 
Frage 

Abfrage auf 
Korrektheit 
der Spieler¬ 
namen 
Kette von 
Leerzeichen 


Die Geübteren unter Ih¬ 
nen können anhand der 
Varia bien liste und der Un¬ 
terprogram mliste den Pro¬ 
grammablauf des Beispiel¬ 
programms leicht nach¬ 
vollziehen. Falls Sie je¬ 
doch über wenig Erfahrung 
in diesen Dingen verfügen, 
soll hier noch eine ausführ¬ 
liche Erklärung des Pro¬ 
gramms erfolgen. Sie kön¬ 
nen das Listing zuerst ab¬ 
tippen und im Nachhin¬ 
ein mit der Beschreibung 
vergleichen. Effektiver ist 
es, wenn Sie analog zur 
Beschreibung das Pro¬ 
gramm abtippen. 

In jedem Fall empfiehlt 
es sich, das Programm ab¬ 


zuspeichern, bevor eigene 
Einfügungen vorgenom¬ 
men werden. 

Zur Beschreibung: 

• In Zeile 1000 wird die 
Rahmen- und Hinter- 
srundfarbe festgelegt. 
Durch GOSUB 9300 er¬ 
folgt im entsprechenden 
Unterprogramm die Di¬ 
mensionierung und Zu¬ 
weisung der meisten Va¬ 
riablen. 

A=RND(—TI) in Zeile 
9310 dient zur Zufallser¬ 
zeugung. 

Das nachfolgende GOSUB 
9100 soll die Anleitung 
abrufen, die Sie später 
selbst programmieren 
können. 

• Die Zeile 1010 be¬ 
wirkt durch GOSUB 
9000 die Abfragen: 

Die Abfrage der Spieler¬ 
anzahl erfolgt in Zeile 
9010 (INPUT““;SP). 

Zeile 9020 schließt eine 
Über- oder Unterschrei- 
tung der Spieleranzahl 
aus und wiederholt ge¬ 
gebenenfalls die Abfrage 
(GOTO 9010). 

Mit Hilfe der Variablen 
„SP“ wird innerhalb der 
Zeilen 9030 bis 9050 ei¬ 
ne Schleife zur Abfrage 
der Spielemamen gebil¬ 
det. 

Ob der eingegebene Spie¬ 
lername (N$) zu lang ist, 
wird in Zeile 9045 durch 
LEN (N$(A)) 10 festge¬ 
stellt. Eventuell wird 
auch diese Abfrage wie¬ 
derholt (GOTO 9045). 
Durch die Zeilen 9060 
bis 9090 wird die Gele¬ 
genheit gegeben, das Pro¬ 
gramm fortzuführen 
(Zeile 9070) oder die ge¬ 
samte Abfrage zu wieder¬ 
holen (Zeile 9080: 

GOTO 9000). Bei unkla¬ 
rer Antwort wird diesel¬ 
be Frage erneut gestellt 
(Zeile 9090:GOTO 
9060). 

Der zweite Befehl in Zei¬ 
le 1010 (GOSUB 8000) 
erzeugt den Spielfeld¬ 
aufbau: Die Zeile 8010 
bringt mittels „SP“ die 
Spielernamen (N$) auf 
den oberen Bildschirman¬ 
teil. Die Variable ,.B“ legt 
hierbei die vertikale Posi¬ 
tion der Namen fest. Die 
Zeilen 8020 und 8030 


bewirken die Darstellung 
der themenzugeordneten 
Farbfelder= Leerzeichen 
in Zeile 8030. 

POKE 194,1 in Zeile 
8020 ist mit REVERSE 
ON identisch. 

GOSUB 2800 in Zeile 
8040 erzeugt ein vierzeili¬ 
ges graues Feld in Bild¬ 
schirmmitte. 

Die Namen der zu raten¬ 
den Personen werden 
durch ,,Q$“ in Zeile 8050 
eingelesen und zusammen 
mit der Kennzahl („A“) 
auf dem unteren Teil des 
Bildschirms dargestellt. 
Die Zeile 8060 sorgt da¬ 
für, daß bei mehr als 
neun Namen eine zwei¬ 
spaltige Darstellung er¬ 
folgt. Ermöglicht wird 
dies durch Änderung der 
Variablen „B“, die den 
Zeilenanfang mittels der 
TAB-Funktion regelt. 

Das „CHAR 1,19,15“ 
dient lediglich zum Set¬ 
zen der Ausgangsposition. 

• Die Zeilen 2000-2070 
bilden eine große Schlei¬ 
fe und stellen sozusagen 
das „Hauptprogramm“ 
dar. 

• Für den späteren Pro¬ 
grammablauf sorgen die 
Unterprogramme 2600, 
2700 und 2800 in Zeile 
2000 dafür, daß alle ver¬ 
änderlichen Anzeigen ge¬ 
löscht werden. 

• Die Zeile 2005 hebt 
den Namen des betreffen¬ 
den Spielers revers her¬ 
vor. 

GOSUB 2100 führt zur 
Auslosung des Themas: 
Hierzu wird innerhalb 
der Zeilen 2100 bis 2150 
eine Schleife gebildet, die 
erst verlassen werden 
kann, wenn die Zufalls¬ 
zahl „X“ (Zeile 2105) 
dem Wert 30 entspricht 
(Zeile 2120); wobei sich 
„X“ zwischen Eins und 
50 befinden kann. Solan¬ 
ge dies nicht der Fall ist, 
wird der Lospunkt an 
drei Positionen fortlau¬ 
fend abgebildet (Zeile 
2110) und gelöscht (Zei¬ 
le 2130). Die Variable 
„KX“ ändert sich analog 
zum Lospunkt (Zeile 
2140). 

® In Zeile 2010 wird ge¬ 
prüft, ob das betreffende 
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FAMILY — QUIZ 


10 rem family-quiz========-c16 <ih> 

11 rem (p) commodore weit team <mj> 

13 rem ( c) by peter bergen <fc> 

14 rem hildesheim <la> 

15 rem <Kn> 

16 rem beispielprogramm 1 zur <lh> 

17 rem serie "so programmiere ich <ap> 

10 rem in basic" <km> 

19 rem <lf> 

20 rem basic v3.5 <jb> 

21 rem c16/116/p4 <lj> 

22 rem =========================== <ih> 

1000 color4,2,4:color0,2:gosub9300 

:gosub9100 <nm> 

1010 gosub9000:gosub8000 <mb> 

1020 s=1 <nn> 

2000 gosub2600:gosub2700:gosub2000 <ma> 
2005 color1,2,4:poke194,1:char1,1, 
s*2,n$(s):gosub2100 < ß c > 

2010 ifk(kx,s)=3thencolor1,3,4:cha 
r1,29,4,"besetzt!":fora=1toi 500:ne 
xt:goto2050 <cn> 

2020 gosub2200:gosub2300 <bj> 

2030 gosub2600 <Ui> 

2040 ifk( 1,s)=3andk(2,s)=3andk(3,s 
)=3thengoto6000 <mm> 

2050 color1, 2 ,4:poke194,0:charl,1, 
s*2,n$[s) <fm> 

2060 s=s+1:ifs>spthens=1 <gl> 

2070 goto2000 <dp> 

2099 rem auslosen des themas <ba> 

2100 color1,1:kp=16:kx=1:poke194,0 <cb> 

2105 x=int(rnd(1)*50)+1 <ko> 

2110 char1,kp,1,"Q" <co> 

2120 ifx=30thensound1,500,5:return <ki> 
2130 char1,kp,1," " <gi> 

2140 kp=kp+4:kx=kx+1:ifkp=28thenkp 
=16:kx=l <ao> 

2150 goto2105 <do> 

2199 rem anzeige des themas <bn> 

2200 color1,co(kx),4:char1,28,3,t1 
$(kx):char1,28,4,"und":char1,28,5, 

t2$(kx):return <en> 

2299 rem fragen auslosen,-anzeigen 

und auswerten <ap> 

2300 ifkx = 1thenrestöre3000:x = int( r 

nd( 1)*#)+1 <hk> 

2310 ifkx=2thenrestore4000:x=int(r 
nd(1)*#)+1 < °P > 

2320 ifkx=3thenrestore5000:x=int(r 
nd(1)*#)+1 <jd> 

2330 a=0 <ld> 

2340 do:a=a+1:readfr$:readq <mk> 

2350 loopuntila=x <eh> 

2360 color1,2,4:poke194,1:char1,0, 

11,fr$ <jg> 

2370 char!,0,12,"":input"";qa <eo> 


2300 ifqa-qthengosub2420:elsegosub 
2400 <di> 

2390 fora=1to1500:next:return < jj > 

2399 rem anzeige falsch! <lm> 

2400 gosub2600:poke194,1:char1,30, 

4,"falsch!":return <ng> 

2419 rem anzeige richtig! <co> 

2420 gosub2600:poke194,1:char1,30, 

4,"richtig!" <ao> 

2425 k(kx,s)=k(kx,s)+1:color1,co(k 
x),4:charl,kp-2+k(kx,s),s*2,"*" <pb> 

2430 return <jn> 

2599 rem loeschen der themen-anzei 

ge <lp> 

2600 poke194,0:fora=3to5:charl,28, 

a," "+b$:next:return <aa> 

2699 rem loeschen des lospunktes <ad> 

2700 poke194,0:char1,18,1,b4$+b4$: 

return <ck> 

2799 rem loeschen der fragen-anzei 

ge <ei> 


2800 charl,0,10,"":color1,2,4:fora 
=1to4:poke194,1:printz$:next:retur 
n <fe> 

2997 rem anzahl der fragen in die 


zeilen 2300-2320 eintragen ( ff) <pd> 

2998 rem zu beantwortende fragen ( 
max.39 Zeichen), dahinter kennzahl 

der antwort <oc> 

2999 rem daten und Jubiläen <am> 

3000 data". ...",#:rem muster <gb> 

3999 rem Vorlieben und abneigungen <oe> 

4000 data"#:rem muster <kb> 

4999 rem begebenheiten und anekdot 

en <fc> 

5000 data"rem muster <ld> 

5999 rem ende < Pg > 

6000 color1,3,4:poke194,1:charl,29 

,4,"gewonnen !" <op> 

6010 gosub2000:poke194,1:charl,0,1 
1,:input"noch ein spiel? (ja/nei 
n)";e$ <bb> 

6020 ifleft$(e$,1)="j"thenfora=1to 
3:forb=1to4:k(a,b)=0:next:next:got 
o!010 <cn> 

6030 end <ml> 

7999 rem Spielfeldaufbau <me> 

8000 scnclr:color1,1 <ab> 

0010 b=2:fora=1tosp:char1,1,b,">>> 
>>>>>>>>>>>>>>>>>>>":charl,1,b,n$( 

a):b=b+2:next <le> 

8020 b=2:d=15:fora=ltosp:forc=1to3 
:color1,co(c),4:poke194,1 <i»> 

0030 charl,d,b,b3$:d=d+4:next:d=15 
:b=b+2:next K 2 - 

0040 gosub2800 <ni> 

8050 print:restore8100:color1,1 :b= 
0:fora=1to#:readq$:printtab(b)a;"= 
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